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J. Boisgontier e S. Brebion 
Il BASIC per tutti 
Iniziazione e programmi 
EPSI Edizioni Milano 
Prezzo L. 16.000 


Il BASIC è certo la croce e la 
delizia dei nostri lettori, sin dal 
primo momento dell'acquisto del 
loro computer personale. Non 
sappiamo quanti tra voi siano in 
completa confidenza con istruzioni 
come OPEN o GOSUB, ma certo 
la maggior parte di voi si sarà 
accorta che, mentre è facile capire 
il senso delle trenta o quaranta 
parole chiave che costituiscono il 
vocabolario BASIC, ben più 
difficoltoso risulta riuscire a 
metterle insieme per produrre 
programmi complessi e sensati. 
Questo libro, concepito per 
principianti nel campo della 
programmazione, vi invita a 
sedervi davanti al vostro computer 
ed a... parlargli in BASIC. Prima 
frasi semplici, d'’assaggio: 
istruzioni di stampa, test, loop. Poi 
vi verranno proposti problemi via 
via più complessi, ampiamente 
commentati e risolti. 

E concesso molto spazio allo 
studio delle varie istruzioni 
grafiche indispensabili nella 
stesura di quasi tutti i programmi 
«seri», siano essi gestionali, 
didattici, o perché no, videogiochi. 
Il BASIC scelto è l’Applesoft, che 
è forse uno dei più generali e facili 
da tradurre su elaboratori di altre 
marche. 


MODELLI — 
DI \: 

ESPRESSIONE. 

GRAFICA ; 


ETA 


J.P. Blanger 

Modelli di espressione grafica 
EPSI Edizioni Milano 

Prezzo L. 20.000 


Questo volume è stato pensato 
come un'introduzione alle idee ed 
alle tecniche della Computer 
Graphic. Come i nostri lettori ben 
sanno, per Computer Graphic 
(che come disciplina comincia ad 
esser nota anche sotto il nome di 
Eidomatica) si intende tutta una 
serie di applicazioni degli 
elaboratori elettronici nel campo 
della grafica: dai videogiochi sino 
alla sintesi d'immagini 
elettroniche. 

Questo libro è un testo introduttivo 
che presenta i concetti base di 
questa disciplina, studiati ed 
applicati in modo graduale, in 
special modo ai personal 
computer Apple, Commodore 
(Pet) e TRS-80. L'approccio, 
notevolmente originale, incoraggia 
l'autoapprendimento nonché l’uso 
immediato delle tecniche studiate. 
Tra i temi trattati troviamo, oltre 
agli elementi di base della 
Computer Graphic (come ad 
esempio la rappresentazione 
vettoriale e la grafica in alta 
risoluzione), la rappresentazione 
di equazioni complesse, le 
trasformazioni e le traslazioni 
dinamiche di poligoni e superfici 
(chi ha visto la stupenda sigla 
della trasmissione televisiva 
Quark, condotta da Piero Angela, 
può farsi un'idea di ciò di cui 
stiamo parlando), ed infine le 
applicazioni grafiche complesse 
interattive. 

Il linguaggio scelto per la 
presentazione dei programmi è il 
Basic dell'Apple, che è facilmente 
adattabile ad altri computer. Sono 
anche presentati molti esempi già 
tradotti in BASIC Commodore. 
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MAKE A CHIP 


Finalmente un programma per lo 
SPECTRUM che, anche se in 
maniera semplice, permette un 
approccio più chiaro alla logica del 
computer. Il programma MAKE A 
CHIP offre una buona panoramica 
sul come funziona un chip digitale 
e quindi sugli stati logici presenti 
sulla sua uscita in relazione ai 
livelli presenti, alle porte di 
entrata, a seconda che il chip sia 
di tipo AND, OR, NOT, NAND, 
NOR. Oltre ad una 
sufficientemente chiara 
spiegazione contenuta nella prima 
parte, il programma comprende 
anche alcune esercitazioni 
animate che approfondiscono i 
comportamenti delle varie porte 
logiche ed in ultimo permette di 
poter costruire anche circuiti che 
sfruttino i vari chip e le varie 
possibilità di connessione 
verificandone così anche il 
funzionamento con opportune 
tavole della verità. Unico appunto 
che si può rivolgere è purtroppo la 
scarsa comprensione per coloro 
che non conoscono la lingua 
inglese, anche se la discreta 
grafica può aiutare molto. Bisogna 
dire che giunge con un certo 
ritardo in Italia specialmente se si 
tiene conto che il Copyright della 
Software house INCOGNITO 
risale al 1983. 


Il problema della disoccupazione in Europa tormenta 
ormai da tempo gli equilibri economici mondiali e viene 
paragonato, apertamente, a quello ancor più 
drammatico dell’indebitamento dei paesi dell'America 
Latina. 

Nei paesi della Comunità Europea i senza lavoro 
erano, negli anni sessanta, appena il 2% della 
popolazione attiva. In Europa, i disoccupati, sono oggi 
l'11,2% pari a 12 milioni e 650 mila persone; un vero 
esercito composto per il 40% da giovani tra i 14 e i 25 
anni. Negli Stati Uniti, invece, il tasso di 
disoccupazione è sceso, negli ultimi quattro anni, dal 
12% al 7,5% e in Giappone dal 3,5% al 2,5%. 

Le cifre ci dicono, dunque, che in Europa il problema è 
drammatico, mentre in aree tecnologicamente più 
avanzate, come USA e Giappone, sono state trovate 
soluzioni adeguate. Lo squilibrio tra domanda e offerta 
di lavoro, in Europa, continuerà anche nel prossimo 
decennio, poi, soprattutto in Italia dove i problemi 
riguarderanno i giovani in cerca della prima 
occupazione, le cose miglioreranno anche per motivi di 
carattere demografico. 

Ma è chiaro che non è possibile far trascorrere un 
decennio in attesa che le cose si aggiustino da sole, 
senza che politici, economisti e sindacalisti, prendano 
decisioni a livello nazionale ed internazionale. 

La molla da utilizzare per avviare progetti, per creare 
posti di lavoro è certamente quella dell'innovazione 
tecnologica. Su questo argomento, a metà Marzo, si è 
svolta a Venezia una conferenza di grande rilevanza 
politico-sociale ed economica alla quale hanno 
partecipato i rappresentanti di 22 paesi dell'area 
occidentale. Primi Ministri, Ministri del Lavoro, della 
Ricerca e dell'Economia di questi paesi, hanno portato 
il loro contributo al tema dell'incontro: «Sviluppo 
tecnologico e occupazione». A grandi linee la 
conferenza veneziana ha detto tra l'altro un paio di 
cose molto importanti. Per cercare di dar vita ad un 
programma realistico, in grado di risolvere il problema, 
bisogna affrontare due nodi principali: il consenso e la 
cooperazione internazionale. Per trovare il consenso 


delle varie componenti impegnate nello sviluppo e 
nell’occupazione occorre eliminare paura, ignoranza e 
ostilità; occorre, in sostanza, informare. Bisogna dire 
alle persone che non conoscono il problema come 
stanno veramente le cose. L'informazione diventa 
conoscenza, non dimentichiamolo, per le persone 
impegnate nel momento della trasformazione. 


Gli Stati Uniti e il Giappone hanno «inventato» milioni 
di nuovi posti di lavoro negli ultimi dieci anni 
trasformando, con l'innovazione tecnologica, l’intero 
loro sistema economico che, da questo mutamento, ha 
tratto grandi benefici, mentre l'Europa ha perso un 
milione e mezzo di posti di lavoro. Tutto ciò è avvenuto 
nonostante l'Europa impieghi, nella ricerca tecnologica, 
il 20% di tutta la spesa mondiale contro il 27% degli 
Stati Uniti e il 17% del Giappone. Le percentuali di 
questi paesi tecnologicamente molto avanzati non sono 
molto lontane da quella delle risorse impiegate 
dall'Europa in questo particolare settore, ma gli - 
europei, purtroppo, badano ognuno al proprio orto e 
molto danaro va sprecato in ricerche sovrapposte, in 
studi duplicati, senza che l'uno sappia dell'altro. 

Una più attenta attività di formazione e di informazione, 
quindi, diventa fondamentale. 

Una ricerca recente, dell'Istituto Superiore di Sociologia 
della Facoltà di Scienze Politiche dell’Università di 
Milano, ha messo in evidenza, tra l’altro che solo il 
54% dei lavoratori interpellati (406 tra operai e 
impiegati di un gruppo di aziende lombarde) si sente 
direttamente e personalmente coinvolto 
nell'innovazione tecnologica aziendale. L'inchiesta ha 
rilevato anche lo scarso interesse degli interpellati per 
interventi sindacali tendenti ad ottenere aumenti 
salariali e, al contrario, una domanda insistente di 
informazione e di formazione professionale all’interno 
dell'azienda e un migliore livello di preparazione 
scolastica per migliorare l'impatto con l'innovazione 
tecnologica, ma soprattutto per attenuare gli effetti 


negativi. 
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Gentile Redazione, 

invio i miei ringraziamenti per 
aver risposto con sollecitudine 
alla lettera inviatavi nella quale 
facevo presente di avere problemi 
con il listato «IL TREDICI MINUTO 
PER MINUTO» pubblicato sul n. 
3/85. 

Permettetemi di elogiarvi per aver 
risolto il mio problema 
chiamandomi addirittura 
telefonicamente, fatto davvero 
insolito che mi ha lasciato per un 
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attimo incredulo in quanto mai 
avrei pensato che la Redazione di 
una rivista si mettesse in contatto 
diretto con i lettori... 

| suggerimenti datimi sono 
risultati di validissimo aiuto e 
confermo che il programma gira 
ora perfettamente, come asserito. 


PAOLO BRUNELLI 
Falconara M.ma 


Ringraziamo a ns. volta il Lettore per 
la cortese lettera inviataci e 
confermiamo con l'occasione di 
essere a disposizione di quanti 
desiderino chiarimenti in merito ai 
programmi e/o articoli pubblicati. 


Sono il possessore di un SEGA 
SC 3000H ed ho trascritto alcuni 
listati pubblicati sulla rivista. 
Pianoforte e Tiro a volo mi hanno 
creato qualche problema perché, 
nonostante abbia ricontrollato più 
volte il listato, la sottolineatura 
prevista con il modo grafico 
inserito non viene accettata dal 
P.C. La risposta è sempre la 
stessa: SYNTAX ERROR. 

Il listato funziona se non vi sono 
sottolineature. Per quanto 
riguarda TIRO A VOLO, 
nonostante abbia eliminato la 
sottolineatura, il programma si 
blocca alla linea 470. Mi sapete 
spiegare il perché?... 
...Nonostante abbia tentato più 
volte di aprire un FILE e poi 
rispettivamente di chiuderlo 
(OPEN-CLOSE), non sono venuto 
a capo di nulla. Sono io che non 
sono in grado di programmare 
oppure è il computer che nel suo 
linguaggio non prevede le citate 
istruzioni?... 

Nonostante la lunghezza di questa 
lettera chiedo ancora: cosa mi 
sapete dire della ventilata messa 
in commercio per il 1986 del 
nuovo Commodore 128 
compatibile con il Commodore 


647... 
MARIO MAURI 
Mattarello (TN) 


Finalmente uno dei pochi possessori 
del Sega SC 3000 nella versione 
con tastiera rigida QWERTY. 


tua 


VEZATAII 
TÀ 


D 
ja) 


N NI 
SS 


Riguardo al primo problema 
ribadiamo quanto già scritto a pag. 
70 ed 89 della rivista in questione. 
Le lettere sottolineate vanno digitate 
con il cursore grafico inserito. Ciò 
significa che non bisogna 
sottolineare le lettere con alcun 
artifizio, ma si devono digitare le 
lettere contenute nella stringa 
usando il cursore grafico (per 
intenderci quello a forma di 
asterisco). Detto ciò invitiamo il 
lettore a riprovare, tenendo conto 
anche di un errore in cui molti 
possessori del Sega ricadono: 
confondere lo ZERO con la O 
maiuscola. 

Non risulta che istruzioni come 
OPEN, CLOSE siano contemplate 
nel BASIC SEGA. Da ciò si deduce 
che non è prevista la possibilità 
ahimé, di creare FILES in scrittura. 
Si è provato ripetutamente a 
sfruttare le istruzioni INP e OUT per 
supplire a questa manchevolezza, 
ma purtroppo i risultati ottenuti, al 
momento, non sono degni di nota. 
Per la ventilata introduzione del C 
128 Commodore sul mercato entro il 
1986, non è possibile attualmente 
dichiarare nulla di certo. Invitiamo 
quanti interessati a seguire la nostra 
rubrica di Attualità che proprio in 
questo numero parla delle 
carratteristiche tecniche del C 128. 


In merito ad un vostro 
programma, « BIORITMI/STRIKE», 
per il VIC 20, pubblicato nel 
numero di gennaio 1985, vorrei 
che pubblicaste il relativo 
programma adatto al SEGA 
SC-3000. 


PATRIZIO FERLITO 
Como 


Caro Patrizio, un programma 
analogo in versione SEGA SC-3000 
è già stato pubblicato sul n. 4 
Luglio/Agosto 1984. Più 
precisamente a pag. 34 e seguente. 
La versione per il tuo computer si 
discosta da quella per il VIC 20 
riguardo alla visualizzazione delle tre 
curve corrispondenti ai vari cicli. 


Possiedo da pochissimo tempo 
un computer SHARP MZ-700 e 
non conosco bene tutte le sue 
caratteristiche. Infatti nel digitare 


il programma pubblicato a pag. 84 
della rivista di Marzo «Il castello 
di Wiz», ho trovato difficoltà con 
le istruzioni in cui comparivano 
dei codici sottolineati, come ad 
esempio: 

C8C8C8...D8D8. 


Vorrei sapere come fare per 
inserire queste istruzioni nel mio 
computer... 


CALOGERO MAGRO 
Campobello di Licata (AG) 


Le difficoltà incontrate dal lettore nel 
digitare il programma indicato fanno 
capo a una delle caratteristiche dello 
SHARP. 

Le serie di numeri e/o lettere, che 
nei programmi si trovano dopo 
un'istruzione PRINT, corrispondono 
ai caratteri grafici propri del 
computer. 

| listati pubblicati sono richiamati 
direttamente, ma poiché lo SHARP 
adotta una stampante plotter, cioè a 
pennini, non è possibile ottenere una 
stampa del set grafico e quindi il 
computer stesso tramuta i caratteri 
in codice ASCII: ad ogni coppia di 
numeri e/o lettere corrisponde un 
carattere. 

In fase di ribattitura si dovrà dunque 
ricavare mediante la «tabella» 
indicata a pag. 156 del manuale 
fornito con lo SHARP, il carattere 
corrispondente ad ogni singola 
coppia e digitarlio dopo essere 
naturalmente entrati nel modo 
grafico. 


Possiedo un VIC 20 e vorrei 
sapere, possibilmente al più 
presto, che istruzione usare per 
sapere quanta memoria ho ancora 
a mia disposizione dopo aver 
inserito un programma nel 
computer. Grazie. 


SALVATORE TRIOLO 
Partanna (TP) 


Da questa, come da altre lettere, 
abbiamo constatato come molti 
acquirenti di home-computers non 
leggano con la dovuta attenzione il 
manuale di istruzioni allegato, in ogni 
confezione, al computer. Un vero 
peccato!!! In ogni caso rammentiamo 
al sig. Triolo che potrà trovare la 
risposta al suo problema, e forse a 
molti altri, consultando il manuale del 
VIC alla APPENDICE C: Il basic del 
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VIC. Più precisamente il 
sottoparagrafo C del capitolo 
FUNZIONI. Più specificamente 
l'istruzione FRE(X) a pag. 131 nella 
forma PRINT FRE(X). 


Sono un quattordicenne assiduo 
lettore e ho deciso di venire in 
aiuto a tutti quei possessori dello 
SHARP MZ-700 che, come Dario 
Letizia, sono un tantino dubbiosi 
riguardo ai colori effettivi della 
macchina. Secondo il mio 
modesto parere sono più di 60. 
Con il piccolo programmino 
allegato, uso la tecnica delle 
tempere: in effetti tutti i colori 
sono ottenuti usando il carattere a 
griglia; cioè: 
rosso+giallo=arancio. Per trovare 
nuovi effetti consiglio di provare a 
cambiare il valore del codice 
inserito nella linea 30, 
rammentando che i codici di 
questi caratteri sono a pag. 157 
del manuale. L'area che occupano 
i codici colore (cod.col.=-16 x col. 
carattere+colore di sfondo) è 
compresa tra gli indirizzi $ D800 e 
$ DFFF; invece quella occupata 
dai caratteri è tra $ D000 e $ 
D7FF. 

10 LETI= $ D000 

20 LETK=0 

30 POKE I, $ EF 

40 1=1+1:K=K+1:IFK= 
255 THEN 60 

50 GO TO 30 

60 LETI=$ D800:LET K = 0 

70 POKE 1,K:1=1+1:K=K+1:1F K = 
255 THENK=0 

80 GO TO 70 

Per chi trovasse difficoltà ad 

eseguire la routine che comincia 

all'indirizzo 68 (in dec.), provi a 

eseguire questo programmino 

anche cambiando i valori: 

10 FORI=1 TO 100:FORR = 1 
TO 10:POKE 
2618,R:USR(68):NEXT:USR(69) 

20 X=X+1:1F X = 40 THEN 40 

30 NEXT | 

40 X =0:FORH=1 TO 
500:NEXTH:NEXT | 


MARCO MELGAZZI 
Novara 


Si ringrazia innanzitutto il lettore per 
i complimenti espressi nella lettera 
pubblicata in forma ridotta per 
esigenze di spazio. 

Digitando le due routines proposte si 


III] 


incontrano alcune difficoltà e per la 
precisione un ILLEGAL DATA alla 
linea 60 della prima routine ed un 
errore di NEXT alla linea 40 della 
seconda routine. 

Nel primo caso, assegnando le 
variabili così come presentate dal 
programma, i valori sono negativi e 
gli indirizzi errati. 

Nel secondo caso il NEXT | presente 
nell'ultima linea di programma, 
blocca completamente il sistema. 
L'idea non è cattiva ma resta il 
problema che l'effetto è valido solo 
con il carattere griglia, mentre, per 
altri caratteri, non è possibile 
ricorrere alla soluzione proposta. 

A tutti i possessori dello SHARP MZ 
700 desiderosi di provare le routine, 
proponiamo le nostre due 
corrispondenti, elaborate sulle base 
di ciò che il lettore ha proposto. 


18 PRINT“B" 

28 FORK=@T0127:FORJ=28T0119:POKE80888+J,% 
EF :POKE80808+J, K :NEXTJ :CURSOR®, B:PRINTK 
38 GET2S:[F2$=""THEN38 

48 NEXTK 


108 FORK=*1T0255:POKE2618,K:USR(68) NEXT 31 
SR(68):G0SUs18e 

28 FORK=1|7T0255:P0KE2618,K/2:USR(68) :NEXT 
3USR(69) :G0SUB188 

38 FORK=1T0255:POKE2518,K/5:USRC68) :NEXT 
3USR(69):G0SUB108 

48 FORK=1T058:POKE26818,K/5:USR(68):FORS® 
1T03@:NEXTS, K :USR(68):6G0SU8108 

58 FORJI=|T02a:FORK=@8T038:POKE2618,K :USR( 
68} :NEXTK, J :USR(89) 

60 END 

199 FORP=1T01A80:NEXTP :RETURN 


Possiedo un VIC 20 espanso a 3K, 
8K, 16K, ed ho comunciato a 
crearmi dei giochi. 

Mi rivolgo a List, per chiedere: 

1) Comesi possono fare codici 
segreti per passare a schermi 
successivi? 

2) Come si può scrivere un 
programma per usare il 
joystick? 


PAOLO ZANELLATO 
Cameri (NO) 


Non è difficile creare delle chiavi che 
permettano il passaggio a schermi 
successivi sfruttando, ad esempio, 
l'istruzione WAIT da pochi presa in 
considerazione. 


Sul manuale del computer, la sua 
descrizione è la seguente: 

... Viene usata per interrompere 
l'esecuzione del programma fino a 
che i contenuti di una locazione di 
memoria non cambino in un modo 
specifico. 

Si può provare ad esempio con: 

10 WAIT 197,63,64 

Il programma si fermerà fino a 
quando non sarà premuto il tasto 
funzione sulla destra della tastiera. 
Questo è uno dei modi, ma 
combinando più istruzioni di questo 
tipo si può usare come chiave una 
parola intera invece che una sola 
lettera. | parametri presenti 
nell'esempio riguardano nell'ordine: 
197 locazione di memoria che legge 
la tastiera. 

63 contenuto della locazione 
premendo il tasto specificato. 

64 contenuto della locazione non 
premendo alcun tasto. 


Per conoscere i codici corrispondenti 
ai tasti si può fare uso della routine: 
1 PRINT PEEK (197) 

2G0T01 

Dando il RUN si visualizzerà una 
sfilza di numeri che cambieranno 
ogni volta che un tasto sarà 
premuto. Basterà ricordare il codice 
e sostituirlo a 63 nell'istruzione 
WAIT. 

Per ciò che riguarda l’uso del 
joystick, si dovrà leggere il contenuto 
della locazione 37137 con lo stesso 
metodo presentato per la locazione 
197. 

Il suo contenuto cambia in funzione 
della posizione della leva del 
joystick. Con una opportuna 
istruzione IF ... THEN...., associata 
al contenuto rilevato nella locazione 
di memoria, non sarà difficile 
modificare il valore dei parametri 
riguardanti il movimento del carattere 
controllato dal joystick. 


Dal N. 3 (Marzo 1985) ho digitato 
FUNZIONI TRIGONOMETRICHE 
per ORIC 1 che mi ha interessato 
particolarmente. 

Solo alla fine del programma, 
dopo la frase «Per finire andiamo 
a vedere i grafici», ho riscontrato 
qualche problema. Allego il 
seguente schema uguale per tutte 
le funzioni, il che ... non ha alcun 
significato. 

Ciò è dovuto ad un mio errore o 
manca qualcosa? 

| miei saluti 


AUGUSTO MOGGIO 
Verona 


Sembra di capire che in realtà al 


y 


lettore non viene visualizzata la 
curva corrispondente alla funzione 
calcolata. 

Dopo il salto alla routine che inizia 
alla linea 500 (realizzato per mezzo 
della linea 45), il programma 
dovrebbe tornare, grazie ad un 
RETURN, alla linea 48 da cui 
iniziano una serie di subroutines che 
definiscono le funzioni, disegnano gli 
assi cartesiani (lo schema inviatoci) 
ed infine i grafici delle funzioni. Non 
rimane che controllare attentamente 
il listato già trascritto sul computer 
facendo attenzione a controllare se 
manca la linea 43, che contiene un 
RETURN, oppure la routine di 
disegno delle curve, ottenuta dalle 
linee 300-350. 


-Y 


Pallottoliere contro computer 


Esiste, in Cina, una Associazione del 
pallottoliere che unisce ancora, nella 
civiltà dell'elettronica, moltissimi 
appassionati. Il pallottoliere ha circa 
mille anni, ma nonostante la sua 
veneranda età, questo antichissimo 
strumento per calcolare tiene 
validamente testa alle macchine. Li 
Xin, vice presidente 
dell’Associazione, ha dichiarato di 
recente che questo elementare 
strumento è più efficace del 
computer, costa meno, fa meglio 
certe operazioni e, soprattutto, non 
si guasta mai. 


Rifiuti spaziali 


Un vero e proprio anello di rifiuti 
tecnologici orbita ormai da tempo 
intorno alla Terra. Satelliti fuori suo, 
rottami di satelliti e di altri oggetti 
spaziali, frammenti metallici e di altri 
materiali prodotti dalle esplosioni dei 
tests militari nello spazio inquinano 
ormai l'ambiente un tempo 
incontaminato, che sta sopra alle 
nostre teste. Se i paesi che 
detengono le teconologie spaziali 
non troveranno presto un accordo i 
futuri vettori spaziali, civili e militari, 
vedranno aumentare di molto le 
possibilità di collisione nello spazio. 
ll «Jane's Spaceflight Directory», una 
pubblicazione specializzata che si 
stampa a Londra ha rivelato che già 
due navicelle spaziali, una sovietica 
della serie Salyut, e la statunitense 
Challenger, hanno riportato danni 
durante le loro missioni per la 
collisione con questi detriti vaganti 
nello spazio. 


La Sony nello spazio 


La grande compagnia giapponese 
Sony, come molti non sanno, non 
solo produce elettrodomestici piccoli 
e grandi ma è anche una venditrice, 
sul mercato nipponico, dei beni più 
disparati. La Sony, infatti, importa e 
vende mobili, aeroplani jet-executive, 
e altre cose di produzione europea e 


americana. Adesso la Sony ha 
deciso di importare per il mercato 
nipponico anche satelliti prodotti 
negli Stati Uniti dalla RCA. Alcuni 
osservatori specializzati nel campo 
delle comunicazioni non escludono 
che le due compagnie, in un futuro 
prossimo, decidano di mettere in 
orbita e rendere operativo un loro 
satellite. 


Personal in salita 


La domanda di personal computers 
in Italia, stabilizzata due anni fa 
intorno al 45%, ha acquistato molta 
velocità lo scorso anno, il 138% in 
più. E un fenomeno sbalorditivo (che 
si riferisce alle unità vendute) e che 
nessuno degli specialisti del campo 
aveva previsto. Questo aumento 
inaspettato ha trovato diverse 
spiegazioni; prima fra tutte la ormai 
superata diffidenza da parte delle 
piccole imprese e degli utenti, un 
tempo restii all'acquisto di 
computers. Il fenomeno dovrebbe 
continuare anche quest'anno perché 
le piccole imprese devono passare 
alla contabilità ordinaria, come 
prevede la legge Visentini e, quindi, 
dovranno informatizzarsi. 


La letteratura grigia 


Il primo programma europeo per la 
documentazione elettronica sulla 
«letteratura grigia» è entrato in 
funzione. Si chiama «SIGLE», 
System for information on grey 
literature produced in Europe, ed è 
stato realizzato con la collaborazione 
della Comunità Economica Europea. 
Della «grey literature» fanno parte 
tutti quei documenti non ufficiali, 
relazioni scientifiche non pubblicate, 
note tecniche e documenti tecnici, 
comunicazioni private che non 
hanno mai avuto l'onore della 
pubblicazione e che possono però 
avere grande interesse per certi 
settori di specializzazione. 

Il «Sigle» conta su 20 mila 
documenti ed è accessibile, con 
terminale, attraverso la rete 
Euronet-Diane. AI programma 
partecipano cinque Paesi: Francia, 
Irlanda, Gran Bretagna, Germania 


7 


renro GY 7 
gay 


Federale e Belgio. Anche l'Italia 
probabilmente aderirà al programma 
con un centro che potrebbe essere 
installato al Consiglio Nazionale 
delle Ricerche. 


L'uomo e l'automazione 


«L’automazione sull'attività 
dell’uomo». Questo il tema di un 
interessante Convegno di carattere 
internazionale che si terrà in ottobre 
a Milano. Il Convegno è organizzato 
dalla Società Italiana di Ergonomia 
(Sie). Il Convegno affronterà gli 
effetti dell'automazione in quattro 
settori: modalità e strumenti di 
progettazione, sistemi di produzione 
e controllo, elaborazione e 
trasmissione delle informazioni, 
caratteristiche dei nuovi prodotti. 
L'ergonomia è la disciplina che 
studia gli effetti delle interazioni 
umane con l'ambiente e gli oggetti 
che circondano l'uomo nel corso 
delle sue attività. Alla luce di queste 
nuove conoscenze, il convegno 
dibatterà anche la revisione dei 
sistemi di lavori ormai pesantemente 
condizionati dalle nuove tecnologie. 
Già da adesso possiamo telefonare 
alla cometa di Halley, o meglio 
possiamo, componendo alcuni 
numeri del sistema telefonico 
britannico, sapere tutto sul cammino 
della cometa e sul viaggio delle 
sonde che tra la fine di quest'anno e 
la primavera del prossimo le 
andranno incontro. Il servizio è in 
funzione 24 ore su 24 e finirà 
nell'estate del 1986. Le informazioni 
vengono aggiornate ogni settimana, 
Il servizio è stato istituito dalla 
«British Aerospace» e dalla «Società 
per la Cometa di Halley» ed è in 
grado di dare tutte le informazioni 
riguardanti il moto della cometa, già 
entrata nel nostro sistema solare, e 
sulle missioni delle sonde 
automatiche, due sovietiche, una 
giapponese e l'europea «Giotto» che 
studieranno da vicino la cometa che 
ritorna verso di noi ogni 74 anni. | 
numeri telefonici da chiamare per 
avere queste notizie sono: Londra 
01-790-3400; Birmingham 
021-355-6144; Glasgow 
041-552-6300; Liverpool 
051-236-8474; Bristol 0272-279494; 
Cardiff 0222-399855; Manchester 
061-246-8061; Leeds 0532-8013. A 
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questi numeri occorre far precedere 
il prefisso della Gran Bretagna che è 
lo 0044. 


Dinosauri e computers 


Tre scienziati americani delle 
Università del Rhode Island, del 
Michigan e della Columbia, sono 
riusciti a trovare il modo di 
ricostruire, con il computer, il tempo 
meteorologico ... del passato. | tre, 
in sostanza, affermano di avere fatto 
ciò che fa Bernacca alla televisione: 
«prevedono» le condizioni 

meteo iche di epoche fino a 100 
milioni di anni fa. | tre ricercatori 
americani analizzano con il computer 
la polvere racchiusa nelle profondità 


LE NOVITA 


Vi presentiamo le ultime novità in casa COMMODORE, 
presenti al CES (Consumer Electronic Show) di Las 


Vegas. 


dei fondali oceanici in modo da 
studiare l'evoluzione climatica dalla 
preistoria ai nostri giorni. Gli studi 
dei tre docenti hanno suscitato molto 
interesse anche perché si spera di 
ottenere nuove informazioni, e forse 
la prova, di come si estinsero i 
dinosauri. La teoria oggi più 
accreditata, infatti, afferma che i 
dinosauri scomparvero per un 
grande sconvolgimento climatico che 
avvenne 65 milioni di anni fa. 


Jazz: il nuovo programma 
interattivo 


Non si tratta di un programma 
musicale come il titoletto potrebbe 
far pensare, ma bensì di un 


pacchetto software per il Macintosh 
della Lotus che spera eguagli il 
successo di vendite del famoso 
«1-2-3» dell'IBM PC. 

Jazz consta di cinque programmi — 
Numbers, Graphics, Database, Text, 
Communications — integrati fra loro. 
Il pacchetto risulterà senz’altro utile 
agli utenti Macintosh che fino ad 
oggi non hanno avuto la possibilità 
di passare, ad esempio, senza 
difficoltà dalla stesura di una lettera 
alla sua stampa, alla sua 
archiviazione, direttamente e 
soprattutto velocemente come il Jazz 
dà la possibilità di fare. 

A conferma della validità del 
programma, la notizia che la Apple 
ha dichiarato di avere intenzione di 
introdurre il Jazz nella rosa dei 
programmi dedicati ai propri 
computers. 


In America, si sa, ogni manifestazione che si rispetti 
deve avere quel tocco di spettacolarità che la 
contraddistingua. A tale «regola» non si sottraggono, 


naturalmente, nemmeno mostre ed esposizioni. 
Cercate dunque di immaginare — se ci riuscite! — 


«Cosa» possa essere una mostra dedicata ai 
computers o Computer Show come da definizione 


propria. Essere presente con i propri prodotti ad uno 
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«show» di risonanza internazionale rappresenta per le 
Case produttrici una grande opportunità. Uno fra i più 
prestigiosi appuntamenti annuali è proprio quello di Las 
Vegas sul cui «terreno» si danno puntualmente 
«battaglia» i colossi informatici americani, 
contendendosi, a suon di novità, i favori dei visitatori 
che per tutta la durata dell'esposizione fanno ressa 
attorno agli Stands e combattono a spada tratta (leggi 
«gomitate» n.d.r.) per vedere e toccare le nuove 
«creature». AI CES 1985 uno degli Stands che più ha 
offerto è stato senz'altro quello della COMMODORE, 
fra le cui novità spiccavano un computer portatile con 
incorporato display a cristalli liquidi ed alimentazione a 
batteria, il già annunciato C-128 ed un professionale 
compatibile IBM. 


— IL PORTABLE COMPUTER. Le prime cose che 
colpiscono sono il perfetto ed accattivante design ed il 
bianco assoluto. 

Il Portable si presenta lineare e compatto — 5,3 x 26,6 
x 29,7 cm —, con il display inserito internamente al 
coperchio. 

ll processore principale è il nuovo 65C102: si tratta di 
una versione migliorata del vecchio 6502, molto simile 
al 65C02 dell'APPLE lic. Nella versione base il 
Portable viene fornito con 32K RAM e 96K ROM (nella 
ROM sono contenuti i programmi applicativi). Vi è 
inoltre uno SLOT nel quale inserire dell'ulteriore 
software su cartridge. Le quattro batterie AA di cui il 
computer è fornito consentono una «autonomia» di 
circa 15 ore. Il Portable è collegabile al Modem o 
mediante il normale sistema di OUTPUT (tramite cioè 
spinotto) o tramite le stesse capsule acustiche. Per 
quel che riguarda il collegamento con periferiche, il 
computer è provvisto di porta seriale Commodore che 
permette l'interconnessione con tutte quelle disponibili 
per il CBM 64, di una porta RS 232 e di una interfaccia 
per stampante parallela Centronics. Se si considera 
che i computers Commodore sono «tristemente» 
famosi per il loro interfacciamento non standard, 
quanto detto è estremamente positivo. Il display, come 
già detto, è a cristalli liquidi (LCD), di produzione 
Commodore, e consta di 80 colonne x 16 linee. Uno 
dei problemi comuni ai displays LCE di grandi 
dimensioni presenti sul mercato è la cattiva risoluzione: 
sotto questo aspetto invece il display del Portable è 
eccellente. | programmi applicativi forniti sono: Word 
Processor, File Manager, Spreadsheet, Address Book, 
Scheduler, Calculator, Memo Pad, Terminal Emulator, 
Basic, Machine Code Monitor. Tutti sfruttano 
ampliamente gli otto tasti funzione programmabili di cui 
il Portable è provvisto. Il prezzo di questo nuovo 
«nato», presentato come un piccolo gioiello, non è 
stato reso noto. 


— IL C 128. Molto si era vociferato ancor prima della 
sua presentazione ufficiale. 

Come il Portable, il C 128 presenta un design 
decisamente curato, ma la sua caratteristica principale 
è data dai tre diversi processori di cui è fornito: il 6510, 
l'8502 e lo Z-80. 

Questi permettono al computer di operare in tre 
differenti modi: CBM 64 Mode, C 128 Mode, CP/M 
Mode. 

Usato in CBM 64 Mode, il C 128 sfrutta il 6510 come 
CPU, il Sound Chip 6581 e dispone di 64K RAM e 16K 


pa 44, 


ROM. Proprio come il 64 ha il display formato da 320 
X 200 pixels, 16 colori, possibilità di definire otto 
sprites. Grazie all'apposito connettore può usufruire del 
software su cartridge dedicato al 64 che, a detta della 
Commodore, è compatibile al 100%. 

In C 128 Mode il computer sfrutta come processore 
l'8502, il Sound Chip 6581 e dispone di 128K RAM e 
64K ROM; tramite disco la RAM può essere portata 
fino a 512K. 

Il display può essere selezionato in: 

— alta risoluzione pari a 640 x 200 pixels 

— media risoluzione pari a 320 x 200 pixels 

Da tenere presente che il Basic con il quale il C 128 è 
corredato (Basic Version 7.0) è decisamente più 
accessibile rispetto al Basic finora adottato per gli altri 
computers Commodore. 

Come 128 vero e proprio il computer può inoltre 
sfruttare al massimo l'alta velocità di trasferimento dati 
del nuovo Drive — il 1571 (SFD 1001). 

Per operare sotto CP/M il C 128 sfrutta il processore 
Z-80: questa scelta sta ad indicare la nuova tendenza 
Commodore ad indirizzare la propria politica verso 
sistemi più vicini allo Standard. 

Sotto CP/M il C 128 si trasforma in un normale 8-bit; il 
sistema utilizzato è, per la precisione, il CP/M PLUS 
che permette di sfruttare pienamente i 128K RAM a 
disposizione. Lo schermo è selezionabile — 40 o 60 
colonne — e si possono visualizzare fino a 16 colori. 


A detta della Commodore la maggior parte dei 
programmi sotto CP/M-80 è compatibile. 

Per quel che riguarda i dispositivi I/O, il C 128 si rità 
allo standard Commodore: porta connessione 
registratore, porta seriale, porta cartridge e, novità, 
porta RGB e TV. 

La tastiera del 128 è stata decisamente ben progettata: 
si tratta infatti di una tastiera completa di tipo standard 
— professionale, con tasti numerici separati, tasti 
funzione programmabili, due sets di tasti cursore — 
uno in alto ed uno in basso — in modo da rendere il C 
128 completamente compatibile per quel che riguarda il 
software con il 64. 


— IL PC COMPATIBILE IBM. Fino a qualche tempo fa 
nessuno avrebbe mai creduto che la Commodore — 
orgogliosa del proprio «marchio», della propria 
tecnologia e fermamente decisa e convinta di poter 
«Sopravvivere» con i propri mezzi — avrebbe portato 
sul mercato un PC compatibile. Il calo nelle vendite dei 
propri sistemi, ha forse provocato questo 
«ripensamento»? Probabilmente sì. Ad ogni modo 
nonostante questa «sorpresa» la Commodore non 
sembra aver perso tutte le speranze: il nuovo PC, 
infatti, sarà disponibile solo per il mercato europeo e 
non per quello americano. 


— LE PERIFERICHE. Oltre alle nuove macchine, lo 
Stand Commodore ha presentato anche una gamma di 
nuove e «rinnovate» periferiche. Naturalmente le 
maggiori attenzioni sono state prestate al nuovo Drive. 
In definitiva questo può essere utilizzato nei tre Modi 
previsti dal C 128: CBM 64, C 128, CP/M. 

Utilizzato a supporto del 128/64, il trasferimento dati 
avviene alla velocità permessa dal 64, pari a 300 cps; 
collegato al 128 vero e proprio la velocità sale a 1500 
cps fino ad arrivare a ben 3500 cps sotto CPM. 
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ormai da anni la letteratura 
fantascientifica. Di queste creature 
artificali l'uomo ha fatto il suo 
riflesso, il suo doppio. Un grande 
filosofo, l'illuminista Voltaire, 
affermava che l'uomo, così facendo, 
aveva reso la pariglia a Dio che ci 
ha fatti a sua immagine e 
somiglianza. Pensava Voltaire, alle 
meschinità, alle piccinerie che gli 
uomini hanno rifilato ai loro dèi 
nell'antichità. Ma il concetto può 
essere adattato anche .agli scrittori 
dei tempi nostri che attribuiscono ai 
loro automi fantascientifici poteri. 

A scrivere di robots ha cominciato, 
nel 1938, Eando Binder con il 
racconto «lo robot». Isaac Asimov 
(vedi List n. 4) che è da tutti 
considerato il papà del robot nella 
fantascienza (ma a quanto pare 
Binder lo ha preceduto) pubblicò un 
paio di anni dopo una novella dal 
titolo «Robbie» cominciando così 
una sorta di saga del robot positivo 
che si è protratta a lungo e che 
ancora non è finita. Asimov è anche 
l'estensore delle tre leggi della 
robotica; i tre comandamenti ai quali 
gli automi devono obbedire nelle sue 
storie. 

Le tre leggi dicono: a) Un robot non 
può recare danno ad un essere 
umano né può permettere che per 
sua incuria un essere umano riceva 


danno. b) Un robot deve obbedire 
agli ordini ricevuti dagli esseri umani 
purché tali ordini non contrastino con 
la prima legge. c) Un robot deve 
proteggere la propria esistenza fino 
a quando questa autodifesa non 
contrasti con la prima e la seconda 
legge. 

Da allora tutti gli autori di 
fantascienza si sono tacitamente 
attenuti a questo codice inventato da 
Asimov, ma lo stesso Asimov, alcuni 
anni dopo, ha fatto marcia indietro 
perché il concetto di «essere 
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umano», ha ammesso, è 
decisamente ostico per un robot. 
Robot deriva dal cecoslovacco 
«robota» che significa lavoro 
obbligato e servile. La parola fu 
coniata dallo scrittore boemo Karel 
Capek per il suo melodramma, RUR, 
che ebbe grande successo prima a 
Praga, nel 1921, poi nei teatri di 
Londra e New York, con il sottotitolo 
«Rossum’s Universal Robots». 
Quando, sul palcoscenico di un 
teatro di Praga, il viso stupido di una 
macchina vestita da uomo pronunciò 


la parola robot, gli spettatori 
capirono subito; «robota» nella loro 


lingua significa anche lavorare duro. 


Il robot, dunque, era l'operaio 


artificiale, l’uomo sintetico, l'automa. 


RUR parodiava la rivoluzione dei 
Soviet. Capek, infatti, aveva 
paragonato gli ottusi congegni che 
aveva messo in scena allo sciocco 
uomo-massa. 

Automa, come sappiamo, è una 
parola ambigua. Se l’appiccichiamo 
ad un uomo, intendiamo dire che 


quest'uomo si muove senza alcuna 
volontà, inconsciamente, spinto da 
una forza che non gli appartiene. Ma 
automa viene dall'antico greco 
«autòmaton», che vuol dire muoversi 
spontaneamente, di proprio impulso. 
L'automa a similitudine umana, 
l’androide, il robot, è un simbolo 
affascinante e terrificante insieme. 
Affascina perché ci dice che l’uomo 
è potente; spaventa perché in fondo 
ci dice che anche l'uomo può essere 
macchina. 

Difficile dire quale fu il primo automa 
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O quale fu la più vecchia 
rappresentazione meccanica 
dell’uomo o dell'animale. Dobbiamo, 
forse, risalire alla preistoria e 
supporre che l'immobile immagine ir 
legno dell'uomo primitivo sia il primo 
stadio dell'automa. A questa figura 
senza mobilità l’uomo ha sempre 
tentato di dare vita e movimento. 

Il primo Adamo da laboratorio pare 
sia cinese; un uomo di legno capace 
di correre, sedere, alzarsi, ballare, 
ma a quanto pare piuttosto 
imprudente. 

Mostrato alla Corte di un Paese 
Lontano, fissò con i suoi occhi 
senz'anima lo splendido viso della 
sovrana del posto. Lo fece con molte 
insistenza — una insistenza quasi 
umana — al punto che il sovrano, 
incollerito, lo ruppe in centinaia di 
pezzi con un randello. Anche in 
Grecia, nel Terzo Secolo a.C., 
fiorirono i costruttori di macchine 
automatiche. Filone di Bisanzio ed 
Erone furono famosi progettisti di 
automi prima dell'era volgare. Erone 
per far marciare le sue macchine 
usava pesi, aria compressa e 
vapore. Gli arabi Avicenna e 
Al-Djazari non furono da meno, poi, 
dopo un medioevo davvero oscuro 
per i costruttori di androidi, vennero 
gli studi e le realizzazioni di 
Leonardo. 

Ma la grande stagione degli androidi 
éè il secolo dei lumi, il 700, con i 
grandi costruttori come Jaques 
Vaucanson, paragonato da Voltaire 
a Prometeo. 

La costruzione degli automi, nel 700, 
anticipa la Rivoluzione industriale 
che adoprerà molte delle soluzioni 
meccaniche escogitate per muovere 
queste copie, allucinanti nella loro 
perfezione, degli esseri umani. 
Costruire automi, infatti, nel 700 e 
anche prima di allora, non è solo un 
gioco; è soprattutto una ossessione, 
un sogno, una sfida filosofica 
dell’equiparazione dell’uomo alla 
macchina. 

Gli autori di fantascienza insistono 
quasi sempre su questo punto. ll 
robot nelle loro storie, è un automa 
antropomorfo, vale a dire con figura 
e attributi umani. Ma nella realtà 
queste macchine sono molto 
differenti dall'uomo e non ne 
possiedono le capacità. 

| ricercatori più avveduti sanno da 
tempo che l'affidarsi all'uomo come 
modello per il robot è una trappola. 


Non bisogna presumere, infatti, che 
un robot debba avere una mano 
perché l’uomo ha una mano o le 
braccia perché l’uomo ha le braccia 
o un occhio perché l’uomo li ha o il 
cervello perché l’uomo lo ha e così 
via. 

L'uomo, oggi, ha una visione stereo 
e mani abilissime forse perché molti 
milioni di anni fa doveva saltare di 
ramo in ramo, di albero in albero e 
se non avesse avuto una visione 
stereoscopica sarebbe caduto a 
terra con conseguenze facilmente 
immaginabili. Il robot, invece, vive 
nel mondo della fabbrica e le 
fabbriche sono organizzate e 
strutturate in maniera molto diversa 
dalle foreste dove l’uomo un tempo 
viveva. Nelle fabbriche il lavoro è 
regolare e le sorprese molto limitate. 
Non dobbiamo dimenticare che il 
robot, a differenza dell'uomo, è una 
macchina e che ci sono molte cose 
che l'uomo fa benissimo e che il 
robot fa malissimo e viceversa. 
Prendiamo, ad esempio, un robot 
che ormai quasi tutti hanno in casa: 
la lavapiatti. Questo robot, come 
sappiamo, non lavora come una 
persona che lava i piatti. La 
macchina non allunga il braccio per 
prendere un piatto alla volta, non 
usa lo straccio per asciugare e non 
prende il piatto successivo. 

Il robot lavapiatti si serve di un forte 
getto d'acqua, molto calda, per fare 
il suo lavoro, una cosa che una 
persona non può fare perché 
sarebbe sommersa dall'acqua che 
molto probabilmente allagherebbe 
anche la casa. 


La macchina, in sostanza, lava i 
piatti a modo suo. Questo è un buon 
esempio per capire i tranelli di cui si 
è parlato a proposito dell'uomo come 
modello per costruire un robot. 

Ma non sono molte le persone che 
si rendono conto, ancor oggi, di 
avere già in casa un robot 
domestico. 

| robots, quindi, sono solo delle 
macchine manipolatrici e da 
programmare per determinate 
operazioni. Difficilmente quindi i 
robots potranno sostituire 
completamente l'uomo nelle 
lavorazioni, sempre che non si tratti 
di operazioni particolari dove è in 
gioco la salute o l'incolumità degli 
esseri umani. Per arrivare alla totale 
intercambiabilità tra l'uomo e il robot 
sono necessari sforzi economici e 
tecnici, oggi inimmaginabili, in 


almeno tre settori: l'intelligenza 
artificiale, i sistemi di controllo, le 
capacità sensoriali. Il calcolatore più 
progredito, oggi, è una scimmia 
idiota se lo si confronta con il 
cervello dell'uomo. Ma il nostro 


cervello ha circa tre miliardi di anni 
di evoluzione organica, mentre 
l'elaboratore, di anni, ne ha solo una 
trentina. 

Le possibilità che hanno il polso e la 
mano dell'uomo e, la sua corteccia 
cerebrale (attraverso la visione 
tridimensionale e colorata) di 
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«interpretare» la realtà che ci 
circonda, la capacità di elaborare 
risposte agli stimoli esterni in modo 
rapido e coordinato, non possono 
ancora essere trasferiti ad una 
macchina. Probabilmente passerà 


Nile Ì 
molto altro tempo prima che ciò 
avvenga, posto che possa avvenire, 
perché, dicono gli esperti per fare un 
esempio, la sola capacità degli 
attuali sistemi elettronici di visione 
che un robot possiede dovrebbe 


essere elevata di un fattore pari a 
10° per competere con quella 
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umana. 
Esistono già, sulle linee di 
produzione, robots dotati di occhi 
(telecamere) e di cervello (computer) 
in grado di scegliere pezzi per forma 
e dimensione e di metterli al posto 
giusto. Quando una macchina 
compie questi movimenti è già 
arrivata all'università dei robots. Un 
robot «laureato» ha.cinque gradi di 
libertà, riesce cioè a muoversi come 
vuole poiché, di norma, bastano 
cinque assi per far assumere 
qualsiasi posizione ad un oggetto 
nello spazio. Robots di questo tipo 
danno notevoli vantaggi all'industria. 
Nel mondo esistono attualmente 
circa 38 mila robots industriali. Il 
nostro paese è in buona posizione 
nella produzione di queste 
macchine. 

Nella classifica dei produttori siamo 
quinti dopo Giappone, Stati Uniti, 
Germania Federale e Svezia. È, 
questa dei robots, una comunità 
mondiale ancora ristretta, impiegata 
soprattutto nei settori 
dell'automobile, dell'elettronica, degli 
elettrodomestici, della meccanica e 
dei mobili. 

Un robot costa da 250 milioni ad 
alcuni miliardi ma non ha tempi morti 
e aumenta la produttività del 50% 
rispetto alle macchine tradizionali. | 
quattrini spesi per un robot si 
ammortizzano in fretta. 

L'avvento dei robots ha creato 
grosse aspettative: i fisici li vogliono 
mettere al lavoro nelle centrali 
nucleari, gli agricoltori pensano di 
impiegarli nella semina e nella 
irrigazione. Persino i medici parlano 
di robots per le operazioni 
chirurgiche della massima 
precisione; uno di questi, di 
fabbricazione tedesca, il «lithotripter» 
comunemente conosciuto come lo 
«spaccapietre» polverizza già i 
calcoli renali con un sistema 
computerizzato ad ultrasuoni che 
evita l'intervento del chirurgo. 

Nella corsa alla robotizzazione, 
come abbiamo visto, i giapponesi 
sono in testa a tutti; amministrano 
bene il vantaggio che hanno 
accumulato nella prima fase 
dell'automazione. 

| robots in Giappone sono 
dappertutto. | primi automi con il 
colletto bianco stanno arrivando 
anche negli uffici. | loro colleghi in 
tuta, invece, saldano, verniciano, 
montano motori nelle grandi 


fabbriche. Ma il Giappone ha un 
grosso rivale negli Stati Uniti. | 
colossi statunitensi dell'elettronica 
stanno recuperando molto terreno e 
costruiscono già cervelli e sistemi 
nervosi per robots altamente 
sofisticati. 

L'Europa, come sappiamo, ha una 
situazione più complessa con tre 
paesi all'avanguardia, Germania 
Federale, Svezia e Italia che 
possiedono l'80% dei robots 
industriali europei. La domanda di 
robots industriali in Europa, afferma 
una ricerca di mercato statunitense, 
triplicherà ogni cinque anni. Nel 
1990 i robots europei saranno più di 
20 mila; un mercato di alcune 
centinaia di miliardi di dollari. 

Filoni autonomi di ricerca, capaci di 
vincere il confronto con i maggiori 
produttori del mondo, sono stati 
sviluppati in Italia negli ultimi anni. 
Era, questo, un fatto impensabile 
fino a pochissimo tempo fa, ma la 
crisi energetica, paradossalmente, 
ha spinto i paesi come l’Italia, che 
hanno maggiormente sofferto della 
crisi del petrolio, sulla strada della 
ricerca avanzata in questo campo. 
Oggi molte aziende italiane vendono 
all'estero robots industriali molto 
perfezionati. 


Esistono in Italia tre poli produttivi 
del settore che, all'estero, riescono a 
piazzare il 35% dell'intera 
produzione nazionale. Sono, questi 
poli, il COMAU del gruppo Fiat, 
l'POCN-OSAI del gruppo Olivetti, e un 
terzo polo che comprende una 
quindicina di imprese private dotate 
di tecnologia molto sofisticata. Esiste 
anche un quarto polo pubblico 
(IRI-STET) che sta accorpando 
alcune imprese per renderle più 
competitive sul mercato 
internazionale. 

Ma, incredibilmente, pur essendo tra 
i primi produttori del mondo, siamo 
in ritardo nella applicazione della 
robotica industriale alle nostre 
aziende. Siamo, in sostanza, dei 
buoni costruttori ma dei cattivi 
utilizzatori. 

Nonostante la progressione sia stata 
di un buon 50% annuo negli ultimi 
cinque anni, siamo indietro di sei o 
sette anni non solo rispetto al 
Giappone, USA, Germania Federale, 
ma anche all'Unione Sovietica e alla 
Francia. 

Le regioni maggiormente robotizzate 
in Italia sono il Piemonte, la 
Lombardia, la Liguria, il Veneto e 
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l'Emilia-Romagna. Il Piemonte è la 
regione leader, con la Fiat che ha 
già robotizzato i suoi impianti del 
30% e che prevede di arrivare al 
70% nei prossimi sette anni. 

Verso la fine degli anni 90, dunque, 
il nostro paese dovrà avere già 
affrontato questo diverso modo di 
produrre e la conseguente crisi del 
lavoro. Fin d'ora il sistema sindacale, 
economico e politico deve cercare 
una soluzione per affrontare il 
problema e per trovare una 
alternativa ai mestieri cancellati dalle 
macchine. Ma, dicono parecchi 
esperti, la temuta, gigantesca ondata 
di disoccupazione potrebbe non 
esserci. 

Questo straordinario zoo fatto di 
membra meccaniche e di cervelli di 
silicio porterà ad un movimento di 
trasformazione molto lento e, quindi, 
abbastanza controllabile. 
L'innovazione tecnologica dunque 
colpisce la fantasia ma inquieta per 
le conseguenze che può avere. Gli 
economisti a volte sono incerti e 
disarmati quando devono analizzare 
il fenomeno: esistono tra loro 
ottimisti e pessimisti. | pessimisti 
pensano che, nonostante il suo lento 
divenire, l'automazione lascerà 
senza lavoro dal 10 al 15% della 
popolazione attiva dell'Europa di qui 
al 1990. Gli ottimisti, più 
realisticamente forse, credono in una 
flessione momentanea dei posti di 
lavoro poi, come è avvenuto con le 
nuove tecnologie, in una successiva 


espansione. Gli studiosi, in effetti, 
non hanno ancora strumenti certi per 
valutare l'entità di questi fenomeni; 
l'automazione, nell'esperienza degli 
ultimi decenni, dicono, è un fatto 
secondario nella determinazione dei 
posti di lavoro. Pesano di più altri 
elementi quali l'evoluzione della 
domanda di beni e di servizi e 
l'incremento della produttività. 
L'uomo, dunque, ha creato uno 
strumento mecanico che gli è utile 
ma è spaventato perché teme che il 
meccanismo diventi potente, 
pericoloso, capace di innescare 
processi incontrollabili. L'apprendista 
stregone dà vita alla sua immobile 
scopa ma poi non riesce a fermarla. 
Ma è più probabile (e augurabile) 
che la nostra civiltà futura sia simile 
ad una Atene senza schiavi, con 
l’uomo liberato dalle attività più 
avvilenti e i robots destinati ai lavori 
più pesanti e pericolosi. 


TSUKUBA 
la città di Mazinga 
e del treno magnetico 


di Giuseppe Breveglieri 


Le Esposizioni Universali sembrano essere il debole giapponesi ci riprovano con l’Expò di Tsukuba, la 
delle civiltà occidentali. La prima Esposizione di questo cittadella della scienza. La Fiera della tecnologia di 
tipo si svolse a Londra nel 1851, poi Parigi, divenuta la Tsukuba è certamente la più imponente e avveniristica 
capitale alla quale tutto il mondo guardava, ne manifestazione internazionale mai avvenuta in questo 
organizzò una valanga: ben sei tra il 1855 e il 1937. Un campo. In questa sorta di Metropolis del 2000, il 

paio di altre Esposizioni Internazionali si svolsero a Giappone ha investito cinquemila miliardi di lire. 
Bruxelles e Montreal nel 1958 e nel 1967 e una, Tsukuba è anche una sfida all'Occidente 

finalmente, in Giappone a Osaka, nel 1970. Adesso i tecnologizzato; una sfida nella corsa a un domani che 
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è già oggi e che i giapponesi intendono ormai solo 
come una gara tesa a sviluppare quantità enormi di 
tecnologia. 

Su una superficie di 102 ettari, a una cinquantina di 
chilometri da Tokyo, Tsukuba è dal 1966 un centro 
nazionale per la ricerca scientifica e tecnologica e per 
l'istruzione in questi particolari settori. Prima era un 
centro agricolo; adesso a Tsukuba hanno la loro sede 
un terzo degli istituti nazionali di ricerca del Giappone. 
Il 50% dei ricercatori nipponici abita ormai stabilmente 
qui. Tsukuba aspira a diventare un centro accademico 
unico nel suo genere, di carattere internazionale, per 
lavori di ricerca di altissimo livello. Era quindi la sede 
ideale per ospitare questa esposizione della scienza e 
della tecnologia al servizio dell’uomo, nella casa e nel 
suo ambiente. 

Una cinquantina di paesi di cinque continenti e una 
quarantina di organizzazioni internazionali, oltre alle 
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rappresentanze nipponiche, hanno creato a Tsukuba 
un pianeta del futuro in sedicesimo. 

Tra l'altro c'è a Tsukuba l’HSST, un treno a 
propulsione lineare, un avanzato sistema di trasporto 
ferroviario che si muove scivolando su una pista a un 
centimetro da terra. La sua velocità massima è di 300 
Km/ora. 

Invece di correre sui binari questo treno rivoluzionario 
scivola senza intoppi, sollevato da terra per effetto 
della forza magnetica. In assenza di attrito si possono 
raggiungere elevate velocità e il rumore viene quasi 
completamente eliminato. Il prototipo in mostra a 
Tsukuba — la pista è lunga solo 350 metri e la 
velocità, per ragioni evidenti, limitata — è il frutto delle 
ricerche fatte dalla JAL, la compagnia aerea nipponica, 
ma anche la JNR, le ferrovie giapponesi, hanno 
realizzato un loro treno super-rapido, lo «Shinkansen» 
che, in prova, è arrivato alla fantastica velocità di 517 
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km/ora, senza equipaggio, e a 262 km/ora con 
passeggeri a bordo. 

La differenza tra i due treni è data dal fatto che le 
Ferrovie Giapponesi usano un sistema a magneti 
superconduttori raffreddati con elio liquido, mentre la 
JAL utilizza dei magneti normali. 

Il mondo fantascientifico di Tsukuba, dove la tecnologia 
giapponese ovviamente detta legge, è popolato anche 
da un esercito di automi che sanno fare tutto: suonano 
Bach, recitano Shakespeare, dipingono, giocano a 
palla, ballano. Tra loro c'è il più grande robot del 
mondo, che si chiama Fanuc; 25 metri di altezza per 
25 tonnellate di peso. 

Ma anche gli automi sono a loro volta dominati dalla 
orwelliana figura di Jumbo Tron, un televisore gigante 
con schermo di mille metri quadri, 40 metri di 
lunghezza e 25 di altezza, realizzato dalla Sony. 
Tsukuba ha una sua filosofia che traspare dal modo 
con il quale la cittadella della scienza è stata realizzata 
e condotta: scienza e tecnologia come veicolo per far 
circolare liberamente idee, amicizia e tolleranza tra i 
popoli. 


Nelle intenzioni degli organizzatori Tsukuba deve 
diventare una pietra miliare nella storia dell'umanità. E 
ben vero che gli organizzatori di questo tipo di 
manifestazioni lo hanno sempre detto, in apertura di 
ogni Fiera Internazionale, ma per Tsukuba tutto questo 
è, forse, un poco più vero. 

La scienza e la tecnologia, un tempo duramente 
contestate per incomprensione o per paura, hanno qui 
in Giappone la loro definitiva consacrazione. In poche 
parole dalla scienza e dalla tecnologia l'umanità 
aspetta le soluzioni per risolvere problemi annosi come 
la fame nel mondo, la siccità, la sovrapopolazione, per 
fare solo pochi esempi. 

Tsukuba può sembrare anche un enorme Luna Park, 
una Coney Island della realtà, una Disneyland per 
bambini cresciuti, un grande show, per capirci, che 
celebra e consacra l'avvento, sulla ribalta economica 
internazionale, di quel fenomeno incredibile che si 
chiama Giappone; ma è anche un segno di speranza, 
per un domani dove l'atomo avrà solo influenze 
benefiche, per dimenticare altri segni, incancellabili, 
lasciati dalla cecità dell'uomo a Hiroshima e Nagasaki. 


i } Provisional 
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PARTE QUINTA 


COMPUTER 


(a cura di Paolo Ciancarini) 


ll software degli 
home-computer: 
UN QUADRO GENERALE 


Negli articoli scorsi abbiamo passato in rassegna 
l'hardware disponibile per i sistemi home-computer, in 
relazione con le funzionalità più interessanti nel campo 
della scuola. 

Spero di essere riuscito a chiarire che un computer va 
scelto e comprato non tanto per le caratteristiche della 
base (processore, memoria), quanto per il sistema 
completo che si può costruire: il più bell'elaboratore del 
mondo è abbastanza inutile senza periferiche adeguate. 
D'altra parte, tutto l'hardware del mondo è inutile, se non 
sapete come usarlo, come «parlargli», per fargli fare ciò 
che vi occorre: come vedremo, il software è il «soffio 
vitale» del vostro sistema. 

E dunque venuto ora il momento di parlare di ciò che 
nella lezione introduttiva definimmo «l’anima» di qualsiasi 
elaboratore elettronico: il software, cioè l'insieme dei 
programmi che «girano» sugli home-computer. 
Metteremo naturalmente in risalto quei tipi di programmi 
che più ci sembrano utili e interessanti in ambito 
scolastico. Non sarà un limite particolarmente forte: 
vedrete che parleremo di quasi tutto il software che 
esiste (non esclusi i videogiochi!). 

Noterete nel seguito che è stata fatta una scelta di 
fondo: noi parleremo per lo più di software commerciale. 
Questo per vari motivi: 


— è più intercambiabile: spesso lo stesso programma 
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esiste per più calcolatori di marche diverse. In° 
particolare, anche se cercheremo di fare una 
panoramica generale, naturalmente il nostro punto di 
riferimento sarà il software per i due home-computer 
attualmente più diffusi in Italia: il Commodore 64 e la 
serie Sinclair. Sappiate che i programmi esistenti per 
questi due sistemi sono complessivamente più di 
10.000; 

è meglio valutabile, perché è più facile fare confronti 
tra programmi analoghi di ditte concorrenti; 

è più generale: i programmi commerciali sono fatti 
apposta per risolvere il maggior numero di esigenze, 
diverse ma dello stesso tipo. 


Classificazione 


È innanzitutto importante avere ben chiare le differenze 
di funzionalità tra i vari tipi di software esistenti. 
Premesso che parleremo unicamente di programmi per 
home-computer, possiamo grosso modo distinguere le 
seguenti classi: 


1. Il software di base 


Costituisce il corredo indispensabile per controllare tutte 
le potenzialità della macchina. Alcuni dei programmi di 
questa classe cono «residenti» in memoria centrale, su 
ROM: così all'accensione diventano immediatamente 
attivi. Possiamo individuare due sottocategorie: 


a) il sistema operativo e le sue estensioni. È il 
programma che gestisce tutte le comunicazioni tra le 


varie componenti del vostro sistema. Quando, ad 
esempio, su un C64 scrivete 


LOAD"GHOSBUSTERS",8 


ordinate al sistema operativo di mettersi in 
comunicazione col disk drive (unità 8), e di chiedere al 
DOS (Disk Operating System, sistema operativo 
dell'unità a dischi) di trasmettere il codice che costituisce 
il programma GHOSTBUSTERS. Altre funzionalità 
tipiche sono l'esecuzione di un programma (RUN), o il 
salvataggio su memoria esterna (SAVE). 


b) il software di sistema: è composto da una serie di 
programmi, ciascuno adibito ad una specifica funzione. 
Ne citiamo qualcuno (li descriveremo con cura nei 
prossimi articoli): 

— editor dei programmi; 

— monitor per linguaggio macchina; 

— assemblatore; 


— programmi per telecomunicazioni (per pilotare 
modem); 


— programmi di copia (sì, parleremo anche di questi!). 


2. Programmi per programmare: interpreti e compilatori 


Sono i programmi che permettono di programmare il 
vostro elaboratore in maniera «umana». Come sapete, la 
vera lingua dei computer è in codice binario: i programmi 
dovrebbero essere costituiti da smisurate sequenze di 0 
e 1. E, in effetti, così si faceva agli albori dell'informatica 
ee più di 30 anni fal!). 

possibile per fortuna scrivere dei programmi che 
traducono in codice binario altri programmi scritti in 
linguaggi in qualche modo più adatti agli uomini. Per 
questo motivo questi linguaggi sono detti di alto livello. | 
programmi traduttori sono di due tipi: 


a) Interpreti: sono programmi che controllano, traducono 
ed eseguono istruzione per istruzione il programma di 
partenza (detto codice sorgente). Linguaggi come il 
BASIC, il LOGO, il FORTH, il PILOT, il COMAL, il 
PROLOG, hanno bisogno di un interprete. 


Programma : 


b) Compilatori: sono programmi che prima controllano e 
poi traducono tutto il codice sorgente. Il risultato della 
traduzione è un programma in codice macchina, detto 
programma oggetto, che viene poi eseguito a cura del 
sistema operativo. Esistono compilatori per il BASIC, il 
FORTH, il PASCAL, il FORTRAN, il COBOL. 


Programma 
in codice 
macchina 


Programma 


sorgente Compilatore 
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3. Programmi per e/aborazione di testi: detti pure word 
processor, trasformano l’elaboratore in una macchina per 
scrivere dalle funzionalità eccezionali, superiori a quelle 
di qualsiasi macchina per scrivere «reale». Chiaramente 
hanno bisogno di una stampante per poter produrre 
output su carta. 


4. Software grafico: per creare ed eventualmente 
riprodurre su carta (tramite stampante o plotter) disegni, 
figure, progetti, grafici, istogrammi. 


5. Software musicale: per creare e riprodurre suoni, 
parole, musica. 


6. Applicazioni specifiche 


Facciamo rientrare in questa categoria tutta una serie di 

cosiddetti «programmi d'utilità», quali i seguenti: 

a) basi di dati: cioè programmi per gestire grossi archivi 
di dati; 

b) fogli elettronici (0 spreadsheet): parleremo di 
Multiplan, e vedremo come usare i programmi di 
questo tipo anche per applicazioni non strettamente 
finanziarie; 

c) software matematico; 

d) software finanziario; 

e) software scientifico in genere. 


7. Giochi educativi: questi sono i programmi che 
dovrebbero «insegnare divertendo». Abbiamo incluso in 
questa categorie anche giochi veri e propri, come gli 
adventures, per le loro evidenti applicazioni nel campo 
dello studio delle lingue: 


— giochi matematici; 

— giochi enciclopedici; 

— simulazioni; 

— giochi d'avventura in lingue straniere. 


Parlare del software per home computer in termini così 
generali è un po’ come tentare di fare il riassunto di 
un'enciclopedia. Noi comunque ci proveremo, nella 
convinzione di fare un'utile operazione d'informazione e 
divulgazione nei confronti di tutti i lettori. Nei prossimi 
articoli, ci sforzeremo soprattutto di dimostrare che già 
oggi gli home-computer sono assai più che semplici 
consolle per videogiochi. 

Naturalmente siamo a disposizione dei lettori per 
soddisfare qualsiasi esigenza specifica, ed 
eventualmente per segnalare le idee più interessanti che 
ci verranno proposte. Scriveteci! 
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PARTE QUINTA 


I SPEAK LOGO 


A cura di Paolo Ciancarini 


Funzioni ricorsive 


Abbiamo ormai una certa familiarità con due dei concetti 
chiave del linguaggio LOGO: le procedure ricorsive 
come la procedura CERCHIO: 


PER CERCHIO 
AVANTI 1 
DESTRA 1 
CERCHIO 

FINE 


e le procedure-funzione, cioè quelle che riportano un 
risultato, come la procedura PITAGORA: 


PER PITAGORA :CATETO1 :CATETO2 ; Questo algoritmo è noto sotto il nome di Algoritmo 
GATETORI o (CATETO1 * :CATETO1 + :CATETO2 Euclideo, perché venne descritto per la prima volta dal 
FINE grande matematico Euclide. Per capire come funziona, 
proviamo ad eseguirlo su due numeri qualsiasi (per 
Vogliamo provare a mettere insieme queste due idee? esempio 12 e 30): 


Stavolta parleremo infatti di procedura-funzioni ricorsive. NO 

Chi di voi ha letto libri o seguito corsi introduttivi alla 1 acero 
programmazione avrà visto, come primo esempio di ss » all 3g 0 i 
algoritmo (ricordate? Algoritmo significa «metodo preciso | 18° 12 peril passo 4 
ec effettivo per risolvere un certo problema»), il 6 12 peril passo 4 
seguente: 12 6 per il passo 3 


; 7 x : P 6 6 fine, per il passo 2: il risultato è 6. 
î. siano dati due numeri; chiamateli Ni e N2; 
2. se sono uguali, l'algoritmo termina e il risultato è N1; | Facendo altre prove, vi accorgerete che il numero che 


3. se NI è più piccolo di N2, scambiateli: ovvero N1 risulta alla fine è esattamente il massimo comun divisore 
diventa N2 e viceversa; dei due numeri di partenza. Notate, tra l’altro, che questo 

4. calcolate la differenza N1-N2: chiamatela N1; algoritmo NON fa uso di moltiplicazioni e divisioni. 

5. ricominciate da capo l'algoritmo con il nuovo NI e il Come vedete, al passo 5 c'è un'istruzione che somiglia 
vecchio N2. parecchio ad una chiamata ricorsiva dell'algoritmo 

stesso, esattamente come farebbe una procedura 

Una forma forse più famosa per descrivere algoritmi è LOGO. 

quella dei diagrammi a blocchi. Vediamola, per Vediamo dunque una procedura-funzione LOGO che 

confronto: descrive l'algoritmo euclideo: 
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PER MCD :N1 :N2 

SE :N1 = :N2 ALLORA RIPORTA :NI 

SE :N1 < :N2 ALLORA RIPORTA MCD :N2 :N1 
È RIPORTA MCD (:N1 — :N2) :N2 

INE 


Un esempio d’invocazione: 


MCD 12 30 
RISULTATO: 6 


Il condizionale 


Il comando SE ...ALLORA... si chiama condizionale: 
quel che segue la parola-chiave ALLORA (sulla stessa 
riga) viene eseguito se è vera la condizione compresa 
tra SE e ALLORA. Il comando condizionale è uno dei più 
importanti in qualsiasi linguaggio di programmazione. 
Notate che nella procedura MCD il primo 

SE ...ALLORA... entra in azione solo se i due numeri 
dati come argomenti della procedura sono uguali. In tal 
caso la procedura-funzione si ferma (perché così 
funziona RIPORTA), dando come risultato :N1. Questa 
istruzione è dunque l'equivalente del passo 2. 

Il secondo SE ...ALLORA... entra in azione solo se il 
primo argomento, :N1, è più piccolo del secondo, :N2. In 
tal caso il risultato dell'invocazione originaria MCD :N1 
:N2 viene calcolato invocando ricorsivamente MCD :N2 
:N1, scambiando cioè gli input. In pratica questo significa 
che il massimo comun divisore di 8 e 12, ad esempio, si 
calcola riapplicando daccapo l'algoritmo, avendo però 
come input 12 come :N1, e 8 come :N2. Notate che 
questo chiaramente equivale anche a stabilire in astratto 
che l'operazione di massimo comun divisore è 
commutativa, cioè che 


MCD(n,m) = MCD(m,n) 


Se infine nessuna delle due condizioni è vera, si chiama 
ricorsivamente la procedura-funzione MCD su due nuovi 
argomenti: il primo è costituito dalla differenza di iNI e 
:N2, che diventa il nuovo :N1; :N2 invece rimane intatto. 
Nel caso di 12 e 8, per esempio, si passa a calcolare il 
massimo comun divisore di 4 e 8. Infatti si può 
dimostrare che 


MCD(n,m) = MCD(n-m,m) se n>m 


Naturalmente la sequenza di chiamate ricorsive termina 
solo quando i due numeri sono uguali, essendo il 
massimo comun divisore, in tal caso, ovvio: 


MCD(n,n) = n 


Bello, vero? 

Usando la procedura MCD è facile calcolare il minimo 
comune multiplo: vale infatti una formula, assai poco 
nota ma elegantissima, che permette di calcolare il 
minimo comune multiplo di due numeri a partire dal 
massimo comun divisore: 


n*m 


mem(n,m) = MCD(N,M) 


PER MCM NI :N2 
RIPORTA :N1 * :N2 | MCD :Ni :N2 
FINE 


Moltissime funzioni utili possono venir calcolate in LOGO 
mediante procedure ricorsive. Il fattoriale, per esempio, 
che una funzione matematica definita come 


fattoriale(n) = 1*2*3*....*(n-1)"n 


Per esempio, il fattoriale di 1 è 1, quello di 2 è 2, quello 
di 3 è 6, quello di 4 è 24, e così via (è una funzione che 
diventa rapidamente molto grande, come sa chi gioca al 
Totocalcio!). 

Vediamo la corrispondente procedura-funzione LOGO 
che calcola il fattoriale di qualsiasi numero: 


PER FATTORIALE :N 
SE :N = 1 ALLORA RIPORTA 1 
RIPORTA :N * FATTORIALE (:N — 1) 
FINE 


In un comando condizionale potete verificare condizioni 
di 3 tipi: 


a) condizioni matematiche semplici: 


:A> 0 il valore di A è maggiore di 0? 
:B=:C il valore di Bè uguale a quello di C? 
:D<3  ilvalore di Dè minore di 3? 


b) condizioni complesse: 


NON (:A = :B A è diverso da B? 


) 
TUTTIVERI? (:A > 0:B > :A) è vero che A>0e 
UNOVERO? (:A > 0 :B < 4) 


contemporaneamente B>A? 
almeno uno tra A>0 e B<4 è vero? 


c) altre condizioni: le vedremo più avanti, quando 
mpareremo ad usare le parole e le liste del LOGO. 


Nota per i BASIC-dipendenti: NON corrisponde all'incirca 


al NOT del BASIC, TUTTIVERI? all'AND, mentre 
JNOVERO? è il corrispondente dell'OR. 


vediamo qualche esempio. 


pe () 


upponiamo che :A valga 3, :B valga 0 e :C valga 6. 


a: 
NON:A = 0 è vero 
NON :C > 0 è falso 
TUTTIVERI? (:A > 0 :B=:C)è falso 
TUTTIVERI? (:A > :B :C> 0)è vero 
JNOVERO? (:A > 0 :B=:C)è vero 


NOVERO? (:B> :A :B = :C) è falso 


Proviamo a scrivere una procedura che decide se un 
certo anno è bisestile o no. Le regole sono queste 
notate che diamo praticamente un algoritmo!): 


ivisibile per 100: allora non è bisestile, a meno che 


Sia N l'anno. Se N è divisibile per 4, è bisestile, a meno che 
sia divisibile per 400: allora è bisestile. 


n» 
ca 


Ag esempio, 1984 è bisestile, come 2000; invece 1700, 
1800 e 1900 non lo sono stati. La ragione va ricercata 
nel fatto che un anno solare dura 365 giorni e «un 
pezzetto», che è inferiore di poco a 6 ore: esattamente 
5h, 48m e 465. 

Un tempo queste regole non valevano, ed alla lunga le 
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stagioni «sballavano». Pensate che, per far tornare i 
conti delle festività religiose (Ia Pasqua è legata 
all'equinozio di primavera), circa 4 secoli fa per ordine 
del Papa vennero letteralmente saltati 11 giorni del 
calendario giuliano (introdotto da Giulio Cesare) allora in 
vigore. 

Ma torniamo al nostro programma. Per maggiore 
chiarezza, scriviamo prima una procedura DIV?, che 
decide se un certo numero N è divisibile per un altro 
numero D. Ricordiamo che la primitiva RESTO calcola il 
resto della divisione intera tra due numeri: 


PER DIV? :N :D 
RIPORTA (RESTO :N :D= 0) 
FINE 


PER BISESTILE? :ANNO 
RI TUTTIVERI? (DIV? :ANNO 4) (UNOVERO? (DIV? :ANNO 100) 
(NON DIV? :ANNO 400)) 

FINE 


Diamo, per concludere, qualche esempio d'invocazione 
della procedura: 


BISESTILE? 1984 
RISULTATO: VERO 


BISESTILE? 2000 
RISULTATO: VERO 


BISESTILE? 1985 
RISULTATO: FALSO 


BISESTILE? 1900 
RISULTATO: FALSO 
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LINGUAGGIO MACCHINA 


a cura di Massimo Momo 


Nell'articolo precedente abbiamo introdotto lo Z-80, 
parlando di due dei tre Bus che gli permettono di 
scambiare dati con il mondo esterno (BUS dei DATI ad 
8 bit e BUS degli INDIRIZZI a 16 bit) ed inoltre 
abbiamo accennato alla presenza, all'interno del 
microprocessore, di diversi registri ad otto bit. il più 
importante dei quali è l'Accumulatore; abbiamo anche 
puntualizzato il fatto che lo Z-80 esegue 
instancabilmente ISTRUZIONI. 

Abbiamo concluso il suddetto articolo domandandoci 
dove trova lo Z-80 tali istruzioni e come fa, una volta 
terminatane una, a passare a quella successiva. 

Per rispondere a questa domanda dobbiamo parlare di 
un registro speciale contenuto nel microprocessore 
chiamato «PROGRAM COUNTER» (Contatore di 
programma, indicato con la coppia di lettere PC) che, a 
differenza dell'Accumulatore e dei registri ad otto bit 
accennati precedentemente, è un registro a sedici bit, 
in quanto non è utilizzato per memorizzare dati (che 
abbiamo visto essere ad otto bit) ma piuttosto indirizzi 
(che abbiamo visto essere a sedici bit): in particolare, il 
Program Counter contiene l'indirizzo della cella di 
memoria in cui è contenuto il codice della istruzione 
che deve essere eseguita. 

Spieghiamoci con un esempio: supponiamo di voler far 
eseguire allo Z-80 un'istruzione di «caricamento 
dell'Accumulatore» con il valore 10 (ricordiamo, fino 
alla nausea, che, essendo l'Accumulatore un registro 
ad otto bit, esso può contenere un dato compreso tra 0 
e 255). In pratica vogliamo caricare nell'Accumulatore il 
valore 10. 

Per far questo, supponiamo di essere riusciti a caricare 
nella cella di memoria RAM, per esempio di indirizzo 
27000, il numero 62 mentre nella cella successiva 
(evidentemente di indirizzo 27001) il valore 10. 
Supponiamo inoltre di avere il registro Program 
Counter caricato con il valore 27000 (ricordiamo che, 
essendo quest’ultimo un registro a 16 bit, esso può 
contenere numeri compresi tra 0 e 65535). 

Abbiamo ora tutti gli elementi per capire quello che 
avviene dentro lo Z-80: esso depositerà sul Bus degli 
Indirizzi il contenuto del Program Counter ed eseguirà 
automaticamente un «ciclo di acquisizione di una 
istruzione»; questo significa che sul «BUS di 


CONTROLLO» (terzo bus presente in FIG. 1 
dell'articolo precedente), lo Z-80 depositerà opportuni 
segnali tali da informare i dispositivi esterni che esso 
ha intenzione di leggere (cioè di acquisire) il dato 
contenuto sul bus dei dati. 

Quindi i segnali presenti sul Bus di Controllo, uniti 
all'indirizzo presente sul Bus degli Indirizzi (come 
abbiamo visto esso è 27000) farà sì che la decodifica 
della RAM sia in grado di abilitare esclusivamente la 
cella di memoria di indirizzo 27000 che, chiamata in 
causa, depositerà a sua volta sul Bus dei Dati il proprio 
contenuto di otto bit (precedentemente posto pari a 
62); lo Z-80 leggerà tale valore e, essendo in corso un 
ciclo di acquisizione di un'istruzione, lo depositerà in un 
suo particolare registro (detto registro delle Istruzioni, 
ma comunque poco importante per il programmatore, 
perché non è possibile utilizzarlo direttamente) che ha 
il compito di decodificare l'istruzione, cioè capire che 
cosa si richiede al microprocessore. 
Contemporaneamente lo Z-80 incrementerà di uno il 
contenuto del registro PC che verrà così a contenere il 
valore 27001. 

Sottolineiamo che tutto questo, per nostra fortuna, 
avviene automaticamente, cioè è «trasparente» al 
programmatore. 

A questo punto il microprocessore avrà decodificato 
l'istruzione il cui codice è 62 ed avrà capito che è 
nostra intenzione caricare nell'accumulatore un dato, 
che però lo Z-80 ancora non conosce: ebbene esso si 
aspetta di separare tale dato nella cella di memoria 
successiva a quella in cui ha letto il codice 
dell'istruzione: nel nostro caso, se lo aspetta nella cella 
di indirizzo 27001; non a caso precedentemente 
abbiamo caricato in tale cella il valore 10, cioè proprio 
il dato che vogliamo caricare in Accumulatore. 

Lo Z-80 effettuerà a questo punto un «ciclo di lettura» 
allo scopo di leggere il contenuto della cella di memoria 
il cui indirizzo è immagazzinato nel Program Counter: a 
tale fine esso depositerà sul bus degli indirizzi il 
contenuto del Program Counter e sul bus di controllo 
opportuni segnali atti ad avvertire i dispositivi esterni 
sulla sua volontà di leggere dati; tali segnali, 
opportunamente decodificati dalla decodifica della 
RAM, faranno sì che solo la cella di memoria di 
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indirizzo 27001 depositerà sul bus dei dati il proprio 

contenuto (pari naturalmente a 10). 

Il microprocessore potrà quindi leggere tale dato ed 

avrà tutte le informazioni necessarie per completare 

l'istruzione; a questo punto lo Z-80 caricherà 

nell’accumulatore il valore 10, incrementerà ancora il 

Program Counter (che conterrà 27002) e sarà di nuovo 

pronto ad eseguire una nuova istruzione, il cui codice 

dovrà essere contenuto nella cella 27002. 

Abbiamo così visto come viene eseguita un'istruzione; 

nel caso particolare questa era «a due bytes», cioè 

occupava due celle di memoria: infatti nella cella di 

memoria 27000 vi era il «CODICE OPERATIVO» 

dell'istruzione (62) mentre in quella successiva vi era il 

dato (10). Nel set di istruzioni dello Z-80 vi sono 

istruzioni ad un solo byte (quello contenente il codice 
operativo) che non necessitano di alcun dato, istruzioni 

a due bytes (uno per il codice operativo e uno per il 

dato) che necessitano di un dato ad otto bit, ed 

istruzioni a tre bytes (uno per il codice operativo e due 
per il dato) che necessitano di un dato a sedici bit, cioè 

un indirizzo. Per la verità vi sono anche istruzioni a 

quattro bytes, che però sono del tutto analoghe a 

quelle a tre bytes, con la sola differenza che il codice 

operativo occupa due bytes invece di uno: quindi, 
anche per queste ultime, il dato è un indirizzo. 

Comunque torneremo ampliamente sull'argomento man 

mano che analizzeremo le varie istruzioni. 

Passiamo ora a vedere i diversi registri presenti nello 

Z-80 (vedi FIG. 1): 

— Il registro A (Accumulatore) è il più importante in 
quanto è quello utilizzato in tutte le istruzioni 
aritmetiche (somma, differenza, scorrimento, ecc.) 

— Il registro F (Flags) è un registro molto particolare, 
nel quale ognuno degli otto bit serve per indicare 
particolari condizioni avvenute a causa di 
un'istruzione, come un risultato maggiore, minore 
oppure uguale a zero e così via. Tali bit possono 
essere verificati mediante opportune istruzioni simili 
alla «IF» del BASIC 


— Vi sono inoltre i registri B, C, D, E, He L che sono 
tutti ad 8 bit e possono essere utilizzati più o meno 
indifferentemente. Come si vede dalla FIG. 1 vi 
sono due set diversi di registri ad 8 bit (il secondo 
set è composto da altri 8 registri aventi lo stesso 
nome dei corrispondenti registri del primo set con a 
fianco il pedice) che possono essere utilizzati 
alternativamente mediante opportune istruzioni che 
vedremo in seguito 

— Il registro PC (Program Counter) è stato già 
analizzato 

— Il registro SP (Stack Pointer), a 16 bit come il PC, è 
impiegato per gestire una CATASTA (STACK), 
importantissimo strumento che ci permette di 
utilizzare le subroutines con un'istruzione 
equivalente ad «GOSUB» del BASIC 

— Vi sono ancora i due registri IX e IY a 16 bit 
chiamati «REGISTRI INDICE» in quanto possono 
essere utilizzati come PUNTATORI di tabelle e liste 
di dati 

— Vi sono infine due registri ad 8 bit molto particolari: 
il registro | (Interrupt) viene utilizzato per la gestione 
delle « INTERRUZIONI» di cui parleremo molto più 
in là; il registro R (Refresh) viene utilizzato per 
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«rinfrescare» le memorie di tipo dinamico, che però 
esulano dalla nostra trattazione. 


FIGURA 1 


Per poter vedere come le diverse istruzioni agiscono 
sui registri dello Z-80, presentiamo questa volta un 
programma per lo Spectrum (al solito misto tra Basic e 
linguaggio macchina) chiamato « VEDIREGIS» il cui 
scopo è di analizzare e modificare i vari registri. Una 
volta lanciato il programma con RUN, esso offrirà sullo 
schermo la situazione completa dei registri dello Z-80 
dando, per i registri ad otto bit, il contenuto in decimale 
ed in binario. Il registro «F», come già evidenziato, ha 
un'importanza particolare e per questo viene 
visualizzato separatamente, con il significato di 
ciascuno dei suoi otto bit; torneremo a parlare 
dettagliatamente del registro F in un articolo 
successivo. 


Dopo di questo, il programma continua chiedendo la 

funzione desiderata; sono possibili diverse scelte: 

— È possibile modificare uno qualsiasi dei registri 
(escluso il registro F) inserendo il nuovo valore 
subito dopo il nome del registro stesso; così A10 
carica in Accumulatore il valore 10, PC30000 carica 
nel Program Counter il numero 30000 e così via 

— Premendo il tasto «F» si esce dal programma 

— È anche possibile analizzare i registri dopo 
l'esecuzione di una routine in L.M.; a tale scopo è 
sufficiente concludere la routine con tre bytes (205, 
208, 108) che, come vedremo successivamente, 
corrispondono ad eseguire la chiamata alla 
subroutine (equivalente al GOSUB del Basic) che 
inizia all'indirizzo 27856 e che ha il compito di 
salvare il contenuto dei vari registri prima di 
ritornare al Basic. Premendo il tasto «R» il 
programma inizia l'esecuzione della routine in L.M. 
a partire dall'indirizzo contenuto nel PC 

— Per rendere il programma autosufficiente, è prevista 
anche la funzione «IN» che permette di inserire in 
memoria i codici delle istruzioni senza dover 
ricorrere al programma «CARICAMEMO» 
presentato nell'articolo precedente, che invece ci 
sarà indispensabile quando caricheremo routines in 
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L.M. complete e funzionanti (ricordo che il 
programma « VEDIREGIS» serve esclusivamente 
per controllare quello che accade nei registri dello 
Z-80 dopo l'esecuzione di una o più istruzioni). 
Dopo aver introdotto «IN» il computer chiede 
l'indirizzo di partenza della routine che si vuole 
caricare e si mette in attesa dei vari codici; una 
volta terminata l'introduzione di questi ultimi, è 
sufficiente premere il tasto «F» (Fine) per tornare 
alla visualizzazione dei registri. 
Nel prossimo articolo cominceremo ad analizzare una 
per una per una le istruzioni dello Z-80; per il momento 
ve ne anticipiamo tre che serviranno per giocare un po' 
con il programma « VEDIREGIS». La prima serve per 
caricare un numero nell'Accumulatore (è composta dal 
codice operativo 62 seguito dal numero che si vuole 
memorizzare); la seconda serve per caricare un 
numero nel registro B (è composta dal codice operativo 
6 seguito dal numero); la terza serve per caricare un 
numero nel registro C (è composta dal codice operativo 
14 seguito dal numero). Se decidiamo di far partire la 
routine dall'indirizzo 28000 dobbiamo inserire (quindi 
funzione «IN») i seguenti codici: 


62 nella cella di indirizzo 28000 
numA nella cella di indirizzo 28001 
6 nella cella di indirizzo 28002 
numB nella cella di indirizzo 28003 
14 nella cella di indirizzo 28004 
numC nella cella di indirizzo 28005 
205 nella cella di indirizzo 28006 
208 nella cella di indirizzo 28007 
108 nella cella di indirizzo 28008 


dove numA, numB e numC sono i numeri che vogliamo 
caricare nei registri A, B e C rispettivamente. Gli ultimi 
tre bytes ci permettono di visualizzare i contenuti dei 
registri dopo l'esecuzione delle tre istruzioni. Una volta 
caricati tali codici, sarà sufficiente controllare che il 
registro PC contenga 28000 (in caso contrario, 
eseguire PC28000) e quindi premere il tasto «R» per 
l'esecuzione; i tre numeri numA, numB e numC 
verranno visualizzati nei corrispondenti registri a riprova 
dell'avvenuto caricamento. Provate a cambiare questi 
numeri e prendete dimestichezza con il programma. 
Potreste anche visualizzare i registri alla fine di 
ciascuna istruzione: per far questo, dovrete introdurre 
l'insieme dei tre bytes 205, 208, 108 alla fine di ogni 
istruzione e premere quindi tre volte «R»; comunque 
questo ve lo lasciamo come esercizio. A presto. 


STRUTTURA PROGRAMMA 


10 Aggiornamento RAMTOP e forzatura del 
modo C (caratteri maiuscoli) 

20-40 Caricamento in memoria di due routines in 
L.M. necessarie per la gestione dei registri; il 
listato Assembler di tali routines è mostrato in 
LISTING 2 

50-100  Inizializzazione dei registri 

110 Visualizzazione di tutti i registri 
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120-250 Attesa di una funzione e conseguente 
smistamento alle varie parti del programma 

260-310 Inserimento nel registro desiderato del nuovo 
dato 

320 Lancio del programma in L.M. 

330-380 Subroutine di aggiornamento di un registro a 
8016bit 

390-600 Subroutine di visualizzazione di tutti i registri 

610-660 Subroutine che fornisce la rappresentazione 
binaria dei registri ad 8 bit 

670-720 Gestione della funzione «IN» per l'inserimento 
dei codici in memoria 


VARIABILI 

T= Indirizzo a partire dal quale vengono salvati 
i contenuti dei registri 

D= Vettore a 8 componenti in cui viene 


memorizzata la rappresentazione binaria di 
un registro a 8 bit 


V= Valore del numero da caricare nel registro 

OS = Indica, con il suo valore, su quale registro 
si sta lavorando 

IPS,IMS = Rappresentano gli 8 bit, rispettivamente più 


significativi e meno significativi, di un 
registro a 16 bit. 


10 CLEAR 27999: POKE 23658,8 
20 DATA 237,115,168,108,237,12 
3,154,108,221,42,156,108,253,42, 
158,108,42,152,1 
08,229,6,4,33,160,108,94,35,86,3 
5,213,16,249,225,209,193,241,201 
30 DATA 221,34,156,108,253,34, 
158,108,34,166,108,237,83,164,10 
8,237,67,162,108 
,245,193,237,67,160,108,225,34,1 
52,108,237,115,154,108,237,123,1 
68,108,201 
40 FOR I=0 TO 74: 
27819+1,A: NEXT I 
50 LET T=27800 
60 DIM D(8): LET V=28000: 
0S=0: GO SUB 330 
70 LET V=65365: 


READ A: POKE 


LET 


LET 0S=2: GO S 


V=0: LET 08S=4: GO SUB 3 


V=23610: LET O0S=6: G0 S 
I=i1 TO 8 

V=0: LET 0S=1+7: GO SUB 
NEXT I 

GO SUB 390 

INPUT "INSERISCI FUNZIONE: 


| 


";A$ 

130 IF A$(1)="R" THEN GO TO 32 
O 

150 IF A$(1)="F" THEN STOP 

160 IF A#(1)="A" THEN LET 0S=9 
: GO TO 260 

170 IF A$(1)="B" THEN LET OS=1 
1: GO TO 260 

180 IF A#(1)="C" THEN LET OS=1 
0: GO TO 260 

190 IF A$(1)="D" THEN LET OS=1 
3: GO TO 260 

200 IF A$(1)="E" THEN LET OS=1 
2: GO TO 260 

210 IF A#(1)="H" THEN LET OS=1 
5: GO TO 260 

220 IF A$(1)="L" THEN LET OS=1 


4: G0 TO 260 

230 IF A#(1 TO 2)="PC" THEN LE 
T 0S=0: 60 TO 260 

240 IF A#(1 TO 2)="SP" THEN LE 
T 08=2: GO TO 260 

244 IF A#(1 TO 2)="IX" THEN LE 
T 0S=4: G0 TO 260 

248 IF A#(1 TO 2)="IY" THEN LE 
T 0S=6: GO TO 260 

250 IF A#(1 TO 2)="IN" THEN G0 
TO 670 

255 BEEP 0.2y24: GO TO 120 

260 IF 05>=8 THEN GO TO 290 
270 LET V=VAL A#(35 TO )s IF VKO 
OR V>655355 THEN GO TO 250 

280 60 SUB 330: 60 TO 310 
290 LET V=VAL A#(2 TO ): 
OR V>255 THEN GO TO 250 
300 GO SUB 330 

310 60 TO 110 

320 RANDOMIZE USR 27819: 
110 

330 IF 05>=8 THEN G0 TO 370 


IF VCO 


GO TO 


340 LET IPS=INT (V/256): LET IM 
S=V-256*IPS 
350 POKE (T+05) ,IMS: POKE (T+05 


+1) ,IPS 

360 GO TO 380 

370 POKE (T+0S),V 

380 RETURN 

390 CLS : PRINT TAB 4; "SITUAZIO 
NE REGISTRI Z80" 

393 PRINT : PRINT "PC "sPEEK T+ 
256*PEEK (T+1) 

395 PRINT "SP "sPEEK (T+2)+256% 


PEEK (T+3) 

400 PRINT "IX "sPEEK (T+4)+256* 
PEEK (T+5) TAB 95" BIT__ 
410 PRINT "IY ";PEEK (T+6)+256# 


“I 


AL 


n 


PEEK (T+7)3TAB 9;"7 & 5 4 3 
2 1 o" 
420 LET V=PEEK (T+9): GO SUB 61 
O: PRINT : PRINT "A ";ViTAB 9; 
430 FOR I=8 TO 1 STEP -i: PRINT 
D(I);" "3: NEXT I 
440 LET V=PEEK (T+11): 
10: PRINT AT 8,0; "B 


GO SUB 6 
"sViTAB 9; 


450 FOR I=8 TO 1 STEP -1: PRINT 
DII);" "s: NEXT I 

460 LET V=PEEK (T+10): GO SUB 6 
10: PRINT AT 9,0;"C ";ViTAB 9; 
470 FOR I=8 TO 1 STEP -i: PRINT 
D(II);" "sp: NEXT I 

480 LET V=PEEK (T+13): GO SUB 6 


10: PRINT AT 10,0;"D "sViTAB 9; 
490 FOR I=8 TO 1 STEP -1: PRINT 
D(II);" "3: NEXT I 
500 LET V=PEEK (T+12): 

10: PRINT AT 11,0; "E 


GO SUB é& 
"sV:iTAB 9 


510 FOR I=8 TO 1 STEP -1: PRINT 
D(II)s" "sa NEXT I 

3520 LET V=PEEK (T+15): GO SUB 6 
10: PRINT AT 12,05s"H "sViTAB 9; 
50 FOR I=8 TO 1 STEP -1: PRINT 
DII);3" "sta NEXT I 

340 LET V=PEEK (T+14): GO SUB 6 
10: PRINT AT 13,0;s"L "sViTAB 9; 
590 FOR I=8 TO 1 STEP -1: FRINT 
DII);:" "sa NEXT I 

360 PRINT : PRINT : FRINT TAB 1 
4; "FLAGS": PRINT 

70 PRINT TAB 9:58 Z - H - 
P/V N C" 

580 LET V=PEEE (T+8): GO SUR 61 
O: PRINT AT 19,0;"F "sViTAB 9; 


590 FOR I=8 TO 1 STEF “1: FRINT 
DUII);:" "psi NEXT I 

600 RETURN 

610 LET Ni=V 

620 FOR Isl TO 8 

650 LET N2=INT (N1/2) 

640 LET D(UI)=N1-2*NZ: LET Ni=N2 
650 NEXT I 

660 RETURN 

670 CLS s INPUT “INDIRIZZO INIZ 
TALE (3=28000) :", IN: IF IN£28000 
OR IN>65535 THEN 

BEEP 0.,2,y24: GO TO 670 


680 LET I=IN 
690 INPUT ("CODICE IN" 
3 LINE A$ 

700 IF A$(1)="F" THEN GO TO 11 
O 

710 FPOEE I,VAL A$: 
I 

720 LET I=I+1: 


CARCERI 


PRINT I,PEEK 


GO TO 690 


rtetttii 


FORO DI 
CONTROLLO 
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LUNGA VITA... AL NASTRO! 


Ovvero: come rendere il nastro 
della propria stampante 
«immortale». 

Scena: dopo aver passato ore ed 
ore alla stesura di un programma, 
al momento della stampa vi 
accorgete che, nonostante l'aver 
sostituito recentemente la 
cartuccia, lo scritto, tendente al 
grigio, è quanto mai poco chiaro e 
leggibile: che la cartuccia debba 
essere nuovamente sostituita? 
Quanto descritto nelle seguenti 
pagine offre una economica 
soluzione al «costoso» problema. 


LAMINA 
TENDINASTRO 


FORO PER 
INCHIOSTRO 


SPUGNETTA 
INCHIOSTRATA 


DENTRO LA CARTUCCIA 


Prendiamo a campione una 
cartuccia tipo Epson che si trova, 
naturalmente, su tutte le stampanti 
Epson e loro similari. 

La prima cosa da tenere presente 
è che la cartuccia può essere 
aperta e, quindi, il nastro può 
essere sostituito. La cartuccia 
deve essere aperta molto 
attentamente, cercando di non 
rompere i dentini di plastica di 
chiusura. Generalmente non si 
incontrano grandi difficoltà nel 
localizzare questi dentini che sono 
ben visibili; difficili da localizzare 
sono invece i fermi inseriti 
all’interno della cartuccia. 
Attenzione quindi a distaccare le 
due parti della scocca lentamente 
e senza troppo forzare, anche se i 
dentini esterni sono stati liberati. 
Aperta la cartuccia vi troverete 
davanti a metri e metri di nastro 
arrotolato; volendolo sostituire si 
dovrà, mentre lo si toglie, fare 
molta attenzione a come è 
montato in modo da poter 


correttamente riavvolgere a mano 
— o meglio a dito! — il nuovo, 
con tutti gli inconvenienti dovuti 
all’eccessiva quantità di inchiostro 
presente sul nastro. 

Ed è proprio l'inchiostro il 
problema principale: i nastri infatti 
ancor prima di essere consumati 


dall'uso, e quindi non più 
utilizzabili, sono in realtà «secchi»; 
e più la stampante rimane accesa 
— riscaldandosi! — più l'inchiostro 
del nastro tende a seccarsi. 

Ed eccoci dunque arrivati al punto 
del nostro articolo: quanto 
proposto servirà infatti a 
«rinfrescare» il nastro della 
stampante. 

Prima di tutto bisogna procurarsi 
dell'inchiostro liquido adatto al tipo 
di nastro utilizzato (non dovrebbe 
essere difficile reperirlo in 
cartolerie specializzate o forniture 
per uffici), quindi procedere nel 
seguente modo: 

— sulla destra della cartuccia c'è 
abbastanza spazio per inserire, 
dopo averlo modellato, un 
tamponcino di spugna che verrà 
posizionato in modo che il nastro, 
prima di «uscire», lo sfiori. Il 
tampone bagnato di inchiostro 
manterrà il nastro ben umido. 
Naturalmente non si deve 
eccedere con la quantità di 
inchiostro utilizzato per bagnare la 


spugnetta: questa deve sì essere 
imbevuta ma non si deve, nella 
cartuccia, formare un «laghetto»! 
Sì, direte voi, l'idea è buona, ma 
quando anche l'inchiostro della 
spugnetta è esaurito? Nell’aprire 
più volte la cartuccia i famosi 
dentini e perni si potrebbero 
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Il 


anche rompere. 

Giusta annotazione. Ed allora 
eccoci giunti alla seconda fase 
dell'operazione «Lunga Vita»: la 
perforazione della cartuccia per 
ottenere sulla scocca due piccoli 
fori (uno atto a controllare il 
tampone di spugna e l’altro per 
inserire eventuale altro inchiostro 
liquido senza dover riaprire nulla). 
Il foro di dimensione maggiore — 
circa 6 mm di diametro — sarà 
quello di controllo: attraverso 
questo sarete in grado di vedere il 
tampone e giudicare se è il caso 
di bagnarlo con altro inchiostro. 


Il foro più piccolo servirà, come 
già detto, per inserire eventuale 
altro inchiostro: l'inserimento potrà 
essere effettuato mediante un 
normale contagocce. 

Dovete tenere presente che la 
spugnetta è di valido aiuto onde 
evitare che il nastro si secchi; nel 
caso che questo già lo sia, sarà 
bene «inumidirlo» direttamente 
con qualche goccia di inchiostro. 
E inoltre consigliabile lasciar 


LAMINA 


cadere una goccia di inchiostro 
sulla spugnetta, dal foro di 
controllo, ogni volta che la 
stampante viene usata. 

In questo modo il nastro della 
vostra stampante durerà a lungo 
ed otterrete sempre una stampa 
perfettamente leggibile. 


TRUCCHI E SCOPERTE 


ZX - SPECTRUM 


È possibile, molti Sinclairiani si 
saranno chiesti, registrare il 
contenuto della memoria dello 
Spectrum? 

Probabilmente quanti vi avranno 
provato saranno giunti alla 
conclusione che questo non sia 
possibile inquanto si saranno resi 
conto che all'atto pratico non si 
possono caricare più di 65279 bytes 
per registrazione. 

Come fare dunque per accedere e 
registrare il contenuto di memoria 
del computer? Semplice: digitare 
quanto segue e... verificare per 
credere! 


SAVE «ALL ROM» CODE 0,16384 


QUANDO il computer «attende», sia 
in fase di LIST che durante 
l'esecuzione di un programma, che 
venga premuto un tasto, se si 
premono contemporaneamente i due 
tasti SHIFT riappare l’ultimo 
comando eseguito o in esecuzione 
da parte del Sistema Operativo, ed il 
cursore. 


SAPEVATE che è possibile 
registrare titoli di programmi più 
lunghi di 10 caratteri? Perché non 
appaia il fatidico « INVALID FILE 
NAME» basterà inserire i codici delle 
KEYWORDS, ad esempio 


SAVE «SAVE NEW GAME LINE 1» 


Per fare ciò, digitate, dopo aver 
aperto le virgolette, THEN seguito 
dalla KEYWORD scelta e quindi 
cancellatelo con i tasti cursore e 
DELETE... un po' di fantasia in 
questi titoli ci vuole! 

CON questa semplicissima 
procedura disporrete di un cursore 
«scattante» come una Ferrari! 


Digitate la linea 


1 POKE 23562,5 : POKE 23561,35 : 


STOP 


e, poi, in modo diretto 
POKE 23562,1 : POKE 23561,1 


SE siete in possesso di uno 
Spectrum Issue 2 provate a digitare 
POKE 23738,0 


Riuscirete ad effettuare eventuali 
correzioni, normalmente possibili 
solo con l’EDIT, portandovi con il 
cursore direttamente fra le linee del 
listato. 

Per tornare alla normalità digitare 
POKE 23738,75 


COMMODORE 


OLTRE al comando standard per 
leggere la Directory del Drive 1541 
vi segnaliamo la possibilità di 
leggere il solo nome del dischetto e 
la quantità di blocchi liberi, usando 
l'istruzione 


LOAD «$#»,8 


Non fate caso alla segnalazione 
«?FILE NOT FOUND ERROR» e 
digitate LIST. 


PER ottenere l’autorun caricando un 
programma da disco digitate 


LOAD «nome progr.», 8: e premete 
SHIFT+RUN/STOP 


ANCHE sul CBM 64 è possibile 
ottenere un cursore «a Mach 2», 
digitando 


POKE 56325,10 


Ciò può essere particolarmente utile 
per rallentare la routine di SCROLL 
dell'istruzione LIST anche mediante 
il tasto SHIFT. 


UN piccolo trucco per chi non ha 
problemi di carta con la propria 
801... 


Potete ottenere la doppia spaziatura 
utilizzando un numero di File 
maggiore di 127, ad esempio 


OPEN 129,4 : CMD 129 : LIST 
PRINT # 129 : CLOSE 129 


INPUT O GET...? Questo è il 
dilemma! 
Digitando 10 OPEN 1,0 

20 PRINT «PROVA A 


PREMERE UN 
TASTO» ;: 
25 INPUT # 1, A$ 
30 CLOSE 1 


otterrete un'istruzione INPUT in cui 
non appare il punto interrogativo! 


UN TASTO... UN'ISTRUZIONE 


A molti di voi sarà capitato, mentre 


ABS CBM+L 
AND CBM+P 
ASC F 

ATN A 
CHR$ G 

COS CBM+V 
DATA O 

DIM R 

EXP CBM+X 
FN CBM+G 
FOR 

FRE CBM+U 
GET CBM+K 
GO 

GOSUB  Y 
GOTO U 

IF W 
INPUT Q 
INPUTH = P 

INT CBM+J 
LEFT$ H 

LEN Cc 

LOAD CBM+(*) 
LOG CBM+C 
MID$ J 

NEW CBM+| 


digitavate i vostri programmi, di 
tentare di visualizzare simboli grafici 
dopo un'istruzione REM. Dopo aver 
listato il programma avrete notato 
come tutti i simboli grafici usati si 
siano trasformati in altrettante 
istruzioni BASIC contemplate dal 
sistema operativo del Commodore. 
Vi siete chiesti se sia possibile usare 
questa particolarità nella stesura dei 
programmi? La cosa è possibilissima 
ed infatti diamo di seguito l'elenco 
delle «KEYWORDS» ottenibili 
digitando l'istruzione REM seguita 
dai simboli grafici più opportuni. 

Fate attenzione, salvo diverse 
indicazioni (CBM+) i tasti si 
intendono premuti insieme allo 
SHIFT e quindi in modo grafico. Una 
volta finita la stesura del programma, 
non rimarrà altro da fare che 
cancellare la REM alla testa di ogni 
linea. 


NEXT N 

NOT CBM+£ 
ON — 

OR CBM+A 
PEEK B 

POS CBM+O 
READ SÌ 

REM + 
RESTORE X 
RETURN VÀ 
RIGHT$ I 

RND CBM+F 
RUN V 

SGN CBM+H 
SIN CBM+B 
SPC CMB+(+) 
SQR 

STEP 

STOP CBM+(-) 
STR$ D 

TAB CBM+T 
TAN ® 

THEN CBM+M 
TO CBM+C 
USR CBM+Y 
VAL E 
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DIDATTICA 


Apriamo un piccolo spazio dedicato 
ai nostri lettori più inesperti 
spiegando loro quali sono alcuni 
degli errori più comuni cui vanno 


incontro nella stesura dei programmi. 


Sono stati divisi per categorie e per 
la frequenza riscontrata nel 
«feedback» delle vostre lettere e 
telefonate. 


COMMODORE 


LINEE più lunghe di 80/88 caratteri. 
Devono essere digitate usando le 
abbreviazioni delle parole chiave... 
La spiegazione è contenuta a pag. 
130 e 131 del manuale italiano per il 
Commodore 64 ed a pag. 132 e 133 
per il VIC 20, sempre per il manuale 
italiano. 


NOMI proibiti di variabili. 

Sono tutti quelli che ricordano o che 
ripetono le KEYWORD del sistema... 
Ad esempio non potrete far uso di 
una variabile SYS=9 oppure di una 
variabile CMD=197. In entrambi i 
casi il computer interpreterà il nome 
della variabile come un comando 
basic contemplato nel SET delle 
istruzioni standard. 


CICLI di For-Next. 

Uno strano caso si è verificato più 
volte nella stesura dei programmi 
per il VIC ed il 64. Nei cicli di 
FOR-NEXT «nidificati». Per 
intenderci quelli del tipo: 

10 FORX=1 TO 10 

20 FOR Y=20 TO 30 

30 FOR Z=25 TO 35 

40 POKE 7680+X,Y:PRINT 
CHRS$(Z) 

50 NEXT:NEXT:NEXT 

Accade che se nella linea 50 non si 
specifica la variabile a cui il NEXT fa 
riferimento, compare sullo schermo 
la segnalazione «?NEXT WITHOUT 
FOR ERROR». Probabilmente ciò è 
dovuto al fatto che alcuni computers 
importati in Italia hanno standards 
leggermente diversi da quelli più 
adatti alle norme di 
regolamentazione del settore, vigenti 
nel nostro Paese. Il rimedio è 
fortunatamente piuttosto semplice. 
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Basta modificare la linea 50 nel 
modo seguente: 
50 NEXT Z,Y,X 


SEGA SC-3000 e TI 
99/4A 


Sono stati raggruppati insieme 
perché spesso i loro errori (a dire il 
vero gli errori commessi da chi usa 
questi sistemi) si somigliano. 


SCAMBIO di lettere. 

Tra | più comuni errori, lo scambio 
della lettera O maiuscola con lo zero 
e lo scambio del numero 8 con la 
lettera B specialmente nelle 
istruzioni PATTERN e CALL CHAR. 
CON riferimento al TEXAS ci è 
capitato di trovarci alle prese con 
uno strano problema lamentato da 
un nostro lettore. Digitando un 
programma pubblicato sulla rivista, 
sul suo computer accadevano cose 
stranissime. Il primo dei fenomeni 
più strampalati era l'accettazione o 
meno dei due punti (:) dopo 
l'istruzione PRINT, solo se in 
numero dispari o viceversa. Con 
grande curiosità si è chiesto di poter 
constatare personalmente questi 
strani fenomeni ed alla fine l'arcano 
mistero è stato svelato. Il lettore 
digitava un programma destinato al 
TI BASIC selezionando il TI 
EXTENDED BASIC del modulo 
inserito nello SLOT del suo 
computer. Non finisce qui, una volta 
finito di digitare il listato, lo salvava 
su nastro e poi lo caricava dopo 
aver riselezionato il TI BASIC. | 
risultati erano chiaramente 
disastrosi. 

Chiedendo il listato, molte istruzioni 
erano mostrate come il contenuto 
delle locazioni di memoria in quel 
momento, perciò venivano 
visualizzati strani «segni» di colore 
diverso che poi mandando in 
esecuzione il programma (RUN) il 
computer non riusciva ad 
interpretare. Fate attenzione quindi, 
salvo diverse indicazioni i programmi 
per il TI 99 vanno digitati 
selezionando solo il TI BASIC. 


CRA ATI 
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CCOOoOSS 
n 


“TY 
Ugly 


HI-RES PLOT 


VIC 20 


Sono molte le richieste pervenuteci in redazione per 
soddisfare una giusta curiosità dei lettori utilizzatori del 
famoso VIC 20 che tanto successo ha riscosso in 
passato. Nel numero 3 (Maggio-Giugno '84), 
accennammo alla simulazione in BASIC di una 
seconda pagina grafica in alta risoluzione. Pressati 
dalle molte richieste abbiamo pensato bene di 
rispolverare l'argomento, proponendovi un semplice 
programmino di sole 27 linee scritto interamente in 
BASIC. Tale programma permette di creare, nella 
configurazione base del VIC (3,5K RAM), una pagina 
grafica di 127 * 127 pixels e «plottare» su di essa 
grafici di funzioni matematiche, disegni ed altro. Il 
procedimento si basa sulla possibilità di visualizzare 
sullo schermo il contenuto di una zona della memoria 
RAM. Agendo sui singoli bit di questa determinata zona 
si possono facilmente ricostruire determinate curve 
geometriche o comunque disegni. Se il procedimento vi 
sembra di scarsa comprensione, vi consiglio di 
consultare un precedente articolo apparso sul numero 
6 (Nov.-Dic. '84) intitolato OUTLINE. Facendo 
riferimento a questo articolo, se si sostituisce al blocco 
di DATA un valore numerico calcolato dal VIC 
relativamente ad una determinata funzione matematica, 
sullo schermo vedremo il grafico descritto dai valori 
numerici calcolati nell'esecuzione. Approfondendo il 
discorso, per OUTLINE ogni istruzione DATA 
conteneva 8 valori riconducibili ai singoli byte che 
componevano il carattere. Per intenderci, ogni 8 bit si 
ottiene un byte e nel nostro caso con 8 bytes si 
identificava un carattere. Per la gestione grafica in 
HGR (leggi alta risoluzione) bisogna leggere ogni bit 
singolarmente ed identificare a quale degli 8 bytes che 
compongono ogni casella dello schermo appartiene. Se 
guardate il listato noterete che tale compito è affidato 
alla routine contenuta nelle linee 5 e 6; la prima 
identifica il contenuto del bit corrispondente all'asse X e 
la seconda il byte di appartenenza nell'asse Y. Insieme 
concorrono ad identificare la cella di memoria da 
visualizzare con una opportuna istruzione POKE. Nel 
nostro caso la variabile BY è l'argomento dell'istruzione 
POKE. Le linee da 13 a 19 contengono i limiti della 
finestra, l'asse X e la funzione da visualizzare. 


STRUTTURA DEL PROGRAMMA 


0- Riserva lo spazio in memoria da usare come 
pagina grafica; annulla tutte le variabili; salto 
incondizionato alla linea 10. 

Pulisce la pagina grafica da tutto quello che 

era precedentemente contenuto. 


i, 
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2- Altera i puntatori di centratura schermo, 
lettura carattere, numero colonne, numero 
righe, colore fondo e colore bordo schermo. 

3- Allocazione nelle cellule di memoria 
comprese tra 5632 e 5887 dei valori crescenti 
compresi tra 0 e 255; corrispondono alle 
possibili condizioni di visualizzazione 
all'interno di ogni byte. 

4- Prepara il fondo per la visualizzazione dei 
PIXEL nel colore CO. 

5-7 Identificazione delle colonne e delle righe, 
visualizzazione sullo schermo. 

8-9 Ripristino delle normali condizioni dello 
schermo. 

10-11 Alterazione dei puntatori di gestione dello 
schermo. 

12- Ciclo principale. 

13-19 Definizione limiti della finestra e curva da 
visualizzare. 

20- Arresto dell'esecuzione del programma fino 
alla pressione di un tasto. 

21- Cambio del colore di visualizzazione. 

22- Arresto come alla linea 20. 

23- Salto incondizionato alla routine di pulizia 
dello schermo. 

24- Come alle linee 20 e 22. 

25- Salto alla routine di ripristino delle normali 
condizioni di gestione dello schermo. 

26- Fine programma. 


LOCAZIONI DI MEMORIA USATE NEL PROGRAMMA 


52 Puntatore di memorizzazione delle stringhe. 

56 Puntatore di limite massimo della memoria 
RAM disponibile. 

36864 Centratura orizzontale dello schermo. 

36865 Centratura verticale dello schermo. 

36866 Numero di colonne e matrice di indirizzi 

. video. 

36867 Numero di riche e formato caratteri (8 * 8 
oppure 16 * 8). 

36869 Puntatore di inizio mappa caratteri e indirizzi 
di memoria video. 

36879 Colore bordo e fondo schermo. 

648 Puntatore pagina di memoria dello schermo. 

217-240 Puntatore tabella linee di schermo 
(158=termine — 30=continuazione). 

241 Indirizzo fittizio di schermo. 

242 Marcatore linea di schermo. 

243-244 Puntatore mappa colori dello schermo. 

245-246 Puntatore tastiera. 

247-250 Puntatori di ricezione e trasmissione dati 


periferica RS-232. 


‘SEHTE HEL LISTATO 

SOSTITUITE LA LIMEA 19, 
PER ESEMPIO, PROVATE COSI"... 
13 FOR: 
S:MEST: 


CRTREar E THT1260#5 H(#246000)- GO0SI 


CLE:GOTOLA 
ELLA HEAT RE 

î PORE 
2:POEE 


i POEESZ, 22 POEESS, &£: 
Li FORI=6144T08191 FO 
FACE 4 1a: POK 
(POEESSSET, 32! POEE 


Ser, 32 


du elate 


FORISATOZZE:POKESESS 
FORITSOTOZEE: POEESS4OO+ 1, 


+I,I:MERT: RETURH 
CO:HERXI 


CH=IHT Ae 
Pod, =) E 


ha piro: tECH+ EC 


2181 1 ‘RETI HER 
i POEES sio! 
a: ENEES 


a PRIMTOHRE(1470:RETLEH 
18 POKEESERSS, Ss: POEEGAE 
Wi POR”EI: 1568: HEST 


Ù MERT 


Li FOR1=22 STO st * POE Pio 21 


:GOGUES | EHI 


21935: GO 
20 GETRE: IFHES=" 


SET ‘9 
21 CO=5:GOSUE4: A: DO: 
di GETAS: IFAS=="' 


GOSUEI :FAg="""" 
GETAE: TIFARE" 
Z5 GOSUES 
#6 ENI 


‘THEHZ4 


RERIN. 


Desideriamo dare spazio in questa rubrica al 
programma ed alle note introduttive inviateci dal lettore 
Giulio D'Urso di Firenze, che ha risolto lo stesso 
problema in modo diverso. Volentieri pubblichiamo il 
listato. Il programma «GRAPHIC» offre la possibilità di 
ottenere sul video il grafico di non più di tre funzioni 
contemporaneamente, ma ciascuna di un colore 
diverso! Difatti viene struttato il MULTICOLOR MODE 
in HI-RES, quindi da una pagina grafica di 96*128 
pixels se ne ottiene in definitiva una di 96*64. Una 
volta lanciato il programma è necessario inserire fino 
ad un massimo di tre linee (n. 18, 19 e 20) per 
descrivere le funzioni che si desiderano visualizzare; 
dopodiché il programma richiede il numero totale di 
funzioni, gli estremi di rappresentazione, la scala 
dell'asse delle ordinate (l'overflow è protetto), la 
posizione desiderata per l’asse X (quella dell'asse Y è 


A PEEECEMORE 


LIE 


RETUERN 


1FTUZE 


32 


automatica) , infine se si desidera visualizzare anche 
gli assi oppure no. A scopo dimostrativo sono state 
lasciate inserite tre funzioni la cui visualizzazione 
migliore si ottiene rispondendo rispettivamente con la 
seguente sequenza: 

GOTO 8;3;-3.14,3.14;45;0;Sl; 

Facile immaginare le indefinite applicazioni scientifiche 
e non (ad esempio «indagatrici») di questo programma. 


Z9GPOECSO, 24: PONESS,. 24 FOKES 


TT "LISTelATeta] ® PRINT 
PROGRAMAA GRAFICO" 

PRINT EPY GIULIO Te UPRSO" 

4 FORI= ode '6F9:POEET, O NEST: DIM OI 
ORI= TOS: (13=6:HEST 

A PRINT FER 19 E 20°FRIMNT'IHSERI 
SCI LE FUNZIONIYM: ES: 19 Y15=FiK) 3° 


GRAFICO 3° 


dif 


5 PRINT'BCFER ELIMINARE LE FUMEPREZENTI 
CANCELLARE LE LIMEE 19-20 > 

? PRINT SIHEIME DIGITA « È A, END 

5 IMPUTIBGUANTE FUNZIONI E +H 

So IMPUT" TREMI Lar È CASE)", ML, AZ 
Lia THPL 9 BEI GS 


=] NT “623: E] 


TS E 4 2004 
a A ORE PH 
“HO THEHI? 


1 1MPUT" MASSI Mov RS 


PRIBHT' ‘IFRE 


2 CHSTERSE: POREEY, 2 


PE LEIETOERE 
,PEEKCRY 3MFEI MET 
2 MERI4FRAT 


14: T#IT 11° 


21 FORISITON W=d8-FW#413-0%: IFWC00RY395 


mele È 


THTCTe4 4124 INT Ye: File THT CNSIEO 
E 214 «20c HF 


:4TT-INTEAT. 


SE 
E I=1#2 
CEY xOREI 
24 HEST HE? 
2E PETTO 
MebT”ii 

2 POEESS 
+0. L#1; NE MES 
GAG GOTI ZIARI 


‘41640 POEEEY: PEEK 


n 


:TPOEES 264 FORL=ST015: FOR 


Ines, 


Hi 


A+ 
ETC HEMT 


DAL +0 


FERIN. 


rs 0A} 


Keyboard codes 


IRVIVIUEL TIC CELA CE CECI COLE LAT 


387 qa dr. 


RE ah è. Ò dh 4 t 
tY, iui seestetcea ?? ERRE 
ci 


ili VETTICIORII= 


«è }; 3a ù Li 
PRICLILELEZC III” 
(FIABE PEER VAI REI 
: . 


WITIZTIISTTEA 


Li RG 


Un programma didattico per poter «mascherare» alcuni tasti che attivano 
comprendere quali codici vengono inseriti nel | determinate funzioni. Il programma permette 
buffer di tastiera alla locazione 197 del VIC. Il | di conoscere tutti i codici dei tasti che 


funzionamento è estremamente semplice e seguono tale regola. Inutile dire che se 

può essere adattato anche ad altre locazioni consultate il N. 2-85 alla rubrica HANDBOOK 
di memoria di cui si vuole conoscere il potrete dopo aver disattivato il tasto 

contenuto. Nel VIC esiste la particolarità di RUN-STOP , usarlo per funzioni speciali o 
poter usufruire oltre che dell’istruzione segrete sfruttando un'istruzione del tipo: 
GET...$ per riconoscere il tasto premuto IF PEEK (197) = ... THEN... 

anche di una analoga PEEK(197) che, AI posto dei puntini dovrete sostituire il codice 
essendo codificata in decimale, può essere del tasto RUN-STOP e la linea di programma 
usata in tutti quei casi in cui è necessario in cui inizierà la routine speciale. 

| FEN # EEVEOAED CODES Ho 

cea 29 IFF=310RP=23THEMPRTHT 06m; FP 1 
3 REM # (RSI ST OTO4A 

4 REM # 30 PRINT EtsaletMatstefate)'*; Fe; “sg 

3 REM # cin) 19895 MA, 31 IFFEEK(203)=S4THEM PRINT iztMa ala) 
6 REM MMSIIM- TASTO MOM ACCETTATO ":PRINTR' 


19 PRINT" :POKE368979, 25 
12 PRINT'COD. TASTIERA=FEEKC1973":PRINT 
14 FORT=1TO2SG0:MENTT:PRIMT"I" 


32 GETS: IFxs=""THENS2 
33 PRINT:PRINT:P=PEEK1973 


{5 PRIMTUS 64 = MESSUHN TASTO HON E Sd IFp=a2 TMEHPRIT' "ind MTW TATA Ta MTSTN]]* Ca 
CCETTATO- UIPRIHT nuo 

20 FRINT:/PEIMT'PREMERE IL TASTO PERO COH | 35 IFP=310RP==32THENFR INT A080Natalatalata]*;P 
OSCERHNE IL CODICE " 46 PRIMT:PRINT 

SG GETRE:IFR$=""THEHSS dI PRINT SISaletetetata]et8) 

&F PRINT:PRIMNT:P=PEEKC1971 tl GOTOZIA 

css IFP=st HEMFRINT'ERISlalNinTeletete)' Pi CERI. 
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Geometria 1 


Geometria è un programma molto elementare | quanto strani ed astrusi possano sembrare 


in grado di calcolare, in tempo reale, il (per es. nella linea 400 gli strani segni 

determinante di una matrice 3*3 e di racchiusi tra gli apici verranno letti, una volta 

effettuare il prodotto righe per colonne di due eseguito il programma, come ISTRUZIONI). 

matrici di ordine massimo 6x6. Attenzione: per digitare quella parte di 

Per il calcolo del determinante si sfrutta il programma che va dalla linea 2530 alla linea 

metodo di Sarrus chè è brevemente illustrato 2580, bisogna usare le abbreviazioni per le 

nel suo svolgimento, qui di seguito: istruzioni PRINT e TAB. Sul manuale d'uso 

la b #1 sono indicate a pagina 130 e 131 (versione 
italiana). In ogni caso le abbreviazioni sono: 

| d e f|= FM | PRINT=? 

| g h i | TAB(=T [SHIFT] A 

F(n) = [(aXexi) + (d*cxh) + (b*fx*9)]- Nell’abbreviazione per TAB è contenuta 

—[(cKeXg) + (h*fXa) + (b*dx.i)] anche la parentesi, ricordarsi quindi di 

Per il calcolo del prodotto tra matrici è valido il | richiuderla. 


ego eta 


seguente procedimento riportato nell'esempio: 


n LI, 
ve o_o db 
— 


PES: CPSI 
| (EBREI | | 
lcd]xXl \I=lyyty2 | 
| | |JImnlI | | 
[e F|--] lai. 22: | 
x=(a*Xg)+(bXl) 


y=(c*g)+(d*!) 

z=(e*g)+(fX1) 

x1=(aXh)+(b*M) 

y1=(cXh)+(dX*m) 

zi=(e*h)+(fXm) 

x2=(a*i)+(bX*n) 

y2=(c*i)+(d*n) 

z2=(e*i)+(fx*n) 

Le istruzioni, nell'esecuzione del programma, 
compaiono scritte in minuscolo, quindi non 
preoccupatevi per gli strani simboli grafici che 
appaiono nel listato, basta fare attenzione a 
digitare esattamente gli stessi segni, per 


I PAID RIPILI 


IK 
FEE? —,,| 


@ IREM AEKXKKKKKAKEKKKKKKKKKKKKKAKEKKKKK 
5 SREM* SECON: TERA x 
TO REMO ARR RARA ERI RAI AAA AAA 


20 REM * CREATO PER COMMODORE 64 Li 
30 REM * DA PIERO VERZASCHI * 
40 REM * VERSIONE SHARP M2-780 DI LS 
52 REM * ANGELA FERRO & x 
62 REM Xx PIERO VERZASCHI * 


2A REM KKAKAKKKKKKAKXKKKAKKKKKKAKAKKXXXXXKK 
SB REM KAKKKKKXAKAXKXKXXAKKKKKXKXAKKAKXXXXXXX 
188 COLOR; ,7;0 


192 PRINT"E" 
208 PRINT" c8 
212 PRINT" ——DBEGEGCEDBEBEBCEDBEBE2DCC8 


E002E8CENDBEBEOCEFDOBEGDCFODBEOESCE " 


222 PRINI" FD FOFD FDFD E2FD FDFD 

FD FDFDFD FDDBEOED3I " 

238 PRINT" © EREGEBDSCREBEODOFO E2FD F 

D FDCBEGEGDOFOFD FDFD ED" 

240 PRINT" EDEAEBEBEBEREBEOEBCO CO 
CDEREGEGESCOCO CNEAEGEGES " 

252 PRINT" ENEOEBDD 


REM ARIRARAKERAAAEARARAAARRA AEREA TREE 

REM % MENU” x 

ORE REM KAKKXKXAKAKXAXAKKXKXXAXXXXXXXXXxXX 

292 PRINT" E3E3E3E3E3E3E3E3E3E3E3E3E3E3E 

3E3E3E3E3E3E3E3E3E3E 3E 3EIEIEIEZEIEZEIEIE 
3E3" 


OPZIONI POSSIBILI 


3î2 PRINT" E3E3E3E3E3E3EZEIEIEIEZEIEZEIE 


3 3E3E3E3E3E3E3E3E3E3E3E3EIE3EZ3E3E3E3E 
3E3" 


NL ES ALL 


dr a 


n 
% 
" 
I 


56 
i; 
; 
%C 
",% 
% 
pp 
e, 


322 PRINT“EG lirici ve 
2 IONIDU” 

332 PRINT" Zig CALCOLO DETERMINA 
NTEGE" 

348 PRINT" 
NNEDRE" 

345 PRINT" 
220" 

349 AS=8 
352 GETAS:][FAS=""THEN350 

362 IFA$="1"THEN408 

3728 IFA$="2"THENSO8 

388 IFA$="3"THEN1 380 

385 IFAS="4"THEN3020 

I85 REM XAKKXKAKKKXXAKXXXXKXKKXKKAKXKXKKKXxk 
387 REM x ISTRUZIONI * 
BRA REM AKAKXAKRARARAI AREA RARAAA REA 
422 PRINT"RD ISTRUZIONI 


3... +PROD.RIGHE PER COLO 


4... TERMINE DELL” UTILI 


412 PRINT"EI| programma e”stato concepit 

o in modo" 

428 PRINT"da fornire un valido aiuto per 
ch iunque " 

432 PRINT"si trovi alle prese con proble 

mi di seo" 

448 PRINT"metria matriciale. 

452 PRINT"I| programma e”in srado di svo 
lsere due" 

468 PRINT"“divernsi servizi,sche sono breve 

mente jl-" 

4722 PRINT"Iustrati qui di seguito." 


482 PRINT"® 


per continuare batti un 


48] REM AKEKKKKKXXAXAKKKKXKKXKKKAKXKKKKKAKAK 
482 REM * ISTRUZIONI 2° PAGINA * 
483 REM AXKKKXKXXKXXKKXKXKKKKKXXXKKKKKXKKK 
492 GETA$:IFA$="" THEN498 

592 PRINT"EBI| primo servizio che il pro 
gramma e‘" 

512 PRINT"in garado di compiere e’ la pos 
sibilita”" 


520 PRINT"di calcolare velocemente il. de 
terminan-" 

530 PRINT"te di una matrice di ordine ma 
ssimo pa-" 

540 PRINT"ri a tre." 

559 PRINT"E per continuare batti u 


nrasto" 

S5î REM XXXKXKXXXXXXXKXKXKKKKKKXKXKXXKXKKKXKX 

552 REM * ISTRUZIONI 3° PAGINA * 
553 REM AKKKKXKKXAXXKKKXKKXKKKKXKKKKAKKAXAKAXKAK 

562 GETA$:IFA$=""THENS60 

572 PRINT"EBII secondo servizio permette 
invece " 

582 PRINT"di calcolare il prodotto righe 
per co-" 

592 PRINT" lonne di due matrici di ordine 
massimo" 

602 PRINT"sei." 

612 PRINT"P.S. da ricordare che il prodo 

tto tra" 

620 PRINT“due matrici e’possibile solo 9 

uando que" 

6328 PRINT"ste sono quadrate dello stesso 
ordine," 

542 PRINT"oppure quando il numero di ris 

he di una" 

658 PRINT"corrisponde al numero di colon 

ne della" 
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dama 


NERA AA 
Ò 


662 PRINT"altra e viceversa." 


65728 PRINT"I per continuare batti un 
tasto" 

6582 GETA$:IFA$=""THEN68@ 

692 PRINT"E 


"IPRINT"® N.B." 
282 PRINT"DE' importante ricordarsi nell” 
esecuzio»" 
218 PRINT"ne del programma di mettere se 
mpre una" 
228 PRINT"vingola dopo aver inserito cgn 
i numero" 
238 PRINT"questo vale per qualsiasi valo 
re inseri" 
242 PRINT"to ( anche per valori nulli ). 
252 PRINT*® 
asto " 
2658 GETAS:]FA$=""THEN27260 
228 IFA$<>""THEN19@ 
298 REM AXEKKXXKKKKXXXKXXXXXXXXKEKKKKKKXX 
291 REM * CALCOLO DETERMINANTE x 
292 REM XXKKKXKKKXKKKKKKEXKXKXXXXKXXKKKKXKKKKxXX 
988 PRINT"E" 
918 PRINT"DBEBEBEBEDEBEDEDEGE0EBEBE0E0E8 
EBEBEBEOEDEOEDE BEBE OEGEDEBEBEDE DEDE BEBEA 
EGEBEADC" 
9208 PRINT*ED ED CB 


per continuare batti un t 


ca O E2° 
934 PRINT"EDDBEBEBD30BEREODCFNOBE BE ODCCE 


EQDCCREBN2EACEFOCREACEDBEBEBCECBEBCEF DDB 
EGEGDCE2" 


348 PRINT"EDED EDCBEBEBEBFDCREGE0E8FD 
ED FO FDFDFD FDDBEOEBDIFD FDFDCBEBEBEBE? 


95e PRINT'FEDEREBEGEBEAEBEBEBCDEAEBEDEBCO 
CD CO COCOCD CDEAEBEBDDCD COCDEAEBEBEB 

2" 

952 PRINT "EAEBEGFOEDEBEBEBEBEBEBEBEDE0EO 

EBEOEOEOE BEBE BEOEDESEDE BE BEBEREBE0E0ESEO 


EBEGEOEB" 

978 CLR 

1822 REM AXXXKKXXKKKKKKXKKKKKKKXXXXXXXXX 
1BIB REM x INPUT DATI La 


1022 REM AKXKKKKKKKXKKKKKKXKKXKXXKKKXXXk 
1838 INPUT“ I NUMERI DELLA ISRIGA SON 


DTT REX: 
1248 INPUT"B@ I NUMERI DELLA 2°RIGA SON 
Di "ia KJ 
1858 INPUT"MQO I NUMERI DELLA 3°RIGA SON 
Di";H, Q,U 
12852 REM AKKXKXKKXKXKEXKKXXKKXKKXKKXXKKXXXXX%X 
1261 REM X RICERCA DEL RANGO x 


1252 REM AKKKKKXKKKKKKKKXKKKKXKKKXKKKKKKKKX 
1870 S=(XXKXU]+(WKQX2)+(YXJ*H)-(2*KXH)-( 
TAUXW)-[XXQXJ] 

18828 IFS=@THENI11® 

1999 PRINT"BRD IL DETERMINANTE E‘:"S"IL 
RANGO E° TREDO" 

1180 GOT01420 

1110 B=C(XXK]-CYàH} 

1138 IFB=@THENI1 160 

1140 PRINT"BBRIL RANGO E” 2 E IL DETERNI 
NANTE E 200" 

1158 60701420 

1162 C=(KX0)-C(Y£Q) 

11728 IFC=@THENI190 

1188 G0T01148 

1192 D=(W*X0)-C(K*H) 

1208 IFD=B8THEN1220 

1218 GOT01148 

1220 E=(XkJI)-(2%4) 

1230 IFE=B@THENI250 

1240 GOT01:48 

1250 F=(XXU)-(2%H) 

1250 IFF=BTHEN1I2809 

1270 GOTDI140 

1280 G=(WXU]-C(J*H] 

1290 IFG=@THEN1318 

13020 GOTDI140 

1310 I=(YXJ)-(23K) 

1320 IFI=@THEN1348 


1339 GOT01140 

1340 La(YXU)-(2Z*0) 

1350 IFL=@THENI 370 

1368-G0701140 

13208 M=(KXV)-(J*0] 

1380 IFM=BTHEN1 408 

1392 GOT01}48 

1482 PRINT"@M@ IL RANGO E”1 IL DETERMINA 
NTE E’ 000" 

1485 REM KXXXXXXKKEXXXKKKXKKKXXKXKXXXXXK 
1485 REM x STAMPA RISULTATI x 
1487 REM VIETIIFIIIFTOIAONONGIAIAA 


1410 S=B 
1420 PRINTTAB(C14)"ED";TAB(16)X;TABC21)Y; 
TABC26)2;TABC(31)"ED" 

1430 PRINTTABC14)"FD";TABC31) "ED" 

1440 PRINTTABC14)"ED"3TAB(231)"FD" 

1458 PRINTTAB(14)“*FD";TABC(31) "ED" 

1452 PRINTTAB(14)"FD";TABC(31)"FD" 

1470 PRINT"DETERMINANTE" ;TABC14) "ED" ;TAB 
(16)4;TAB(21)K;TABC26)J;TAB(31)"ED=";5 
1482 PRINTTABC1I4)"ED"3TABC31)"FO" 

1492 PRINTTABC14)"FD";TAB(31)"ED" 

1502 PRINTTAB(14)"ED";TAB(31)"ED" 

1518 PRINTTABCI4)"EO";TAB(C31)' “ED 

1520 PRINTTABC14)' "ED" 3 TABC1IBIH5T TABC2130; 
TAB(26)V;TABC31) "FD" 
1530 PRINT"RRRO 

un tasto" 

1540 GETAS:IFA$=""THEN154@ 

1550 IFASO""THENISO 

1562 END 

1879 REM XXKXKXKXXKKKXKXKKXXXXXKXKXXXXXXX 
1871 REM * PRODOTTO RIGHE PER COLONNE %* 
18722 REM XXKXKXKXKXXXXKKAXKXKKKXKXKXKKAXXXKXX 
1892 AS=1 

1988 PRINT"E" 

1928 PRINT"DBEBEDEGEGEOESERE OE BEBEDEDEBE 
QEGEOQELEOEDEGEDEBESEDESE0EGE OE BERE BEDEBE 
QEGEGESDC" 

1930 PRINT“ED ED C8 
ce e2* 

1940 PRINT"ED DOEREGDCCREBDCOBEBEBDC 
DBEBE28DINDBEBEADCFOFDOBEOEODC ES” 
1958 PRINT"ED ED EZED FD E2F0 ED 
ED E2FDEDFO E2 


per continuare batti 


È 
DE 
mali US] 
at: 
= 


19608 PRINT“ED ED ED E2FD FD 
FD E2FDFDFD E2 E2" 
1970 PRINT"FED CBECEGESCO EAEGEBEBEA 
EBEBDDEREGEGESCOCDEAERE0EB E2" 
19882 PRINT'ED ED 

E2" 


1990 PRINT"EREGEOEBEGEBEBEBEDEGEBEDECE08E 
QEBESECEGEDEREREDE BE CEDE NEBE0E CE SEOECERE 


QEBEOEOEB" 

1995 IFA9=1THEN2089 

1999 : REM XAKKAKKKKKKKKKXKKKKKXXXKXkXX 
2002 CLR:REM * INPUT DATI ISMATRICE * 
200) * REM KKKXAKKKKKKKXXXTKKXKXXKXXXXXX 
22/08 PRINT" PRIMA MATRICE" 

20208 INPUT"I NUM.DELLA 1"RIGA SONO:";A,B 
1C,D,E,F:GOSUB 2972 

2038 INPUT"I NUM.DELLA 2°RIGA SONO:"35G 

s lsliM,N:G0SUB 2274 

20404 INPUT"I NUM.DELLA 3"RIGA SONO:";0,P 
sQ,R,S,T:G0SUB 2076 

2050 INPUT"] NUM.DELLA 4*RIGA SONO:";U,U 
sZ,4;K,Y:GOSUB 2078 

2268 INPUT"I NUM.DELLA S‘RIGA SONO:";J,fi 


1,B1,C1,DI, El :GOSUB 2080 

2055 INPUT“I NUM.DELLA 6”RIGA SONO:";F1, 
GisHi,I1,L1,M}:GOTO 2082 

2087 REM XKKKKXKKXXXKXKKKKKKKKKKAKKKAKKKX 
2058 REM * STAMPA PROVVISORIA DATI x 
2063 REM AKKKXKXXKKKXKKKKKKKKKAKKKKKK£X 
2972 PRINTTAB(192); "EDGRERED" ;A3B5C;D;E;F 
i" EDEFRASON" :RETURN 

2024 PRINTTABC18); "ABDDOVED" ;G;H;I5L;M;N 


i" EDEGGOSGE" :RETURN 
2975 PRINTTABC10); "EERUERED" ;03P505R5S;T 
;" EDGnnnssN" :RETLIRN 
2828 PRINTTABCì2); "DRRDOLFO" ;LI;U;2;W5K;Y 
i" EDIGGAs®O" RETURN 
2082 PRINTTABC12); "MRRERDFO" ;4;A1 5B1;C1; 


DI3E13" EDBMOBBDO" :RETURN 

2082 PRINTTABC19); "OGRBEGED" ;F15G1;H1;11 
;L1;M;" ED" 

2083 PRINTTAB(9):INPUT" UUDI CAMBIARE ? 
[S/N] "588 


2084 ]IFBS="N"THEN1890@ 

2085 IFB$s="S"THEN1900 

2085 REMO SODO OA ORIO AO OA 
2087 REM Xx INPUT DATI 2’MATRICE x 
DIB8 REM KAKEERA E RAI AAA AIA RIA 
20989 PRINT" SECONDA MATRICE" 

20890 INPUT"I NUM.DELLA 1‘RIGA SONO:";A2, 
B2,C2,D2,E2,F2:G05UB2142 

2128 INPUT"I NUM.DELLA 2”RIGA SONO:":62, 
H2,12,L2,M2,N2:G0SUB2144 

2118 INPUT"I NUM.DELLA 3"RIGA SONO:" 302, 
P2,02;R2;52,T2:G0SU82146 

2122 INPUT"I NUM.DELLA 4”RIGA SONO:";U2, 
VU2,22,42;K2,Y2:G0SUB2148 

2138 INPUT"I NUM.DELLA S'RIGA SONO:";42, 
A3,83,C3,03,E3:G0SUB2150 

21395 INPUT"I NUM.DELLA &‘RIGA SONO:";F3, 
G3,H3,13,L3,M2:G0T0 2151 

2137 REM XKXKKKKKXKKXXKKKXXXKXKXKXKXXXXKXXXXX 
2138 REM * STAMPA PROVVISORIA DATI * 
2139 REM XXKKKKKXKXAKKKKXKKXKKKKKKXKKKXXXXk 
2142 PRINTTAB(12);"BDEoaRED" ;A2;B23C2;02 
1€2:;F2;" EDIEDIONSM" :RETURN 

2144 PRINTTABC12);"MPORERFEO" ;62;H2;12;L2 
3M2;N2;" EDDODDBOA" :RETURN 

2146 PRINTTAB(10); "MRREeREO" ;02;P2:02;R2 
iS2;72;" EDPEPERES" :RETURN 

2148 PRINTTABC1I2);"DRRERREO" ;U2;U2;22;U2 
iK2;Y2;" FDMBPEMOA" ‘RETURN 

2150 PRINTTABCI®0);"RRBEDROFD";42;A3;83;C3 
5D3;€3;" EDBBEBSSP" :RETURN 

2151 PRINTTAB(10); "DIOROGED";F3;6G33;H33513 
3L3;M3;"ED" 

2152 PRINTTABC19): INPUT" 
[SN] "3B$ 

2153 IF8$="S"THEN1898 
2154 IF®$="N"THEN2158 
2155 REM KKKKKXLKAKKAXKKAKAKKAKAKAKLKKAKAAKTAAAK 
2156 REM *CALCOLO DEL PRODOTTO R. X C.% 
21527 REMO SOR RIO IAA AIAR 
2158 X]=AXfN2+BXG2+CX02+DXU2+E%J2+F%*F3 
2162 X2=AXB2+BXH2+CXP2+DXU2+E%XA3+FXG3 
2170 X3=fAkC2+B%12+CXQ2+DX22+E%B3+F%H3 
2182 X4=AXD2+BXL2+CXR2+DXW2+E%C3+Fx%]2 
2192 X5=A%E2+BXM2+CXS2+DXK2+E*D3+F%*L3 
2200 XB=AXF2+B*N2+CXT2+DXY2+EXE3+F%M3 
2212 KS5=GXA2+HXG2+IX02+LXU2+MXJ2+NXF3 
22208 K6=GXB2+HXH2+[xP2+LXU2+MXxA3+MXG3 
2230 K7=GXC2+H%[2+1%Q2+LX22+MxB3+N%H3 


VUOI CAMBIARE 


2242 K8=GXD2+HXL 2+]%R2+L%*W2+MXC2+N%*13 
2250 KS=GxE2+HXM2+]1%S2+L&%K2+MXD3+N&L3 
2260 KB=GXF 2+HXN2+IXT2+L&Y2+MXE3+N&M3 
227209 Q5=0%XA2+P%XG2+0X02+RXU2+S%J2+T%*F3 
2280 06=0%82+PXH2+0*P2+RXU2+S%A3+T*G3 
2290 Q7=0xC2+PX12+0X02+Rk22+S*B3+T*H3 


2320 08=0XD2+PàL2+0%*R2+RXW2+SXC3+T*13 
2310 Q9=0xE2+P*M2+0XS2+R%K2+S%D3+T*L3 
2320 08=0%F2+P*N2+0XT2+RkXY2+SXE3+T*M3 
2330 25=UXA2+U462+2%X02+WXU2+KxXJ2+T£*F3 
2340 26=UXB2+UxH2+2XP2+WXU2+KXA3+Y*G3 
2350 27=LUXC2+U%12+2X02+WX22+KxB3+YXH3 
2360 2B8=L*D2+U%XL 2+2XR2+WkW2+KxC3+Y®13 
2370 8S=LxE2+UXM2+2XS2+WXK2+K4D3+YXL3 
2382 ze=lxF2+UXN2+2%XT2+WXY2+KxE3+Y&M3 
2398 Y5=JxA2+A1XG2+B1%02+C1%U2+D1%J2+E1% 


2408 Y5=J*82+A}XH2+B1%P2+C1XU2+D1XA3+E1% 


2418 Y2=J3xC2+A1XI2+B1XQ2+C1X2+D1XB3+E1% 
H3 
2420 YB=J4D2+A1%L2+B1%*R2+C1*W2+D1XC3+E1% 
13 


2438 YS=JàE2+A1XM2+B]*S2+C1%K2+D]X03+E1% 
24428 Y8=3%F2+A]kN2+B]1XT2+C1%Y2+D1XE3+E]X 
2458 T5=F1%*A2+G1XxG2+H1X02+I1XL2+L1%J2+MN| 
2450 TS=F1*B2+G1xH2+H}XP2+I1XU2+L1xA3+Mi 
2472 T2=F1*C2+G1%12+H1X02+11X22+L1*83+M1 
2482 TB=F1x02+G}*L2+H1%R2+11XW42+L1*C3+M) 
2498 TS=FxE2+6G1%*M2+H1%S2+I1%K2+L1%XD3+M] 
2500 T@e=F1xF2+G13*N2+H]%T2+I[1XY2+L1XE3+îM] 


DEDI REM AEKXKXKKXAKKKAKKKKKKKKKKKKKKKKXKKKX 

2582 REM * STamPa MATRICE PRODOTTO * 

DIRI REM RRKEXEZAEZEZKAAXXXXKKKXKKXKKXKXXX 

2522 PRINT"BSSSS222- Questa e” la matrice 
prodotto-k@” 

2538 PRINTTABCI) "ED"; TAB(2)X15TABC(8)X2;T 
f8(14)X3;T58SC(28)xs ;TAB(28)X5;TABC32)XB;T 
AB(38) "ED" 

2548 PRINTTABC1)"ED";TABC2)K5;TAB(8)K6;T 
ABC14)K72;TA9C2@8)K8;TA8(26)KS;TABC(32)K0;T 
ABC38) "ED" 

2552 PRINTTABCI)"FO";TABC2305;TAB8(8)06;T 
ABC14)07;TAB([20)08;TAB(25)09; TAB(32)08;T 
AB(238)"ED" 

2562 PRINTTABCI)"“ED";TABC23)25;TAB(8)26;T 
ABC14)27;TAB([20)Z8;3TAB(26)23;TAB(32)28;T 
ABC38) "ED" 

2578 PRINTTABCI]"ED";TAB(2)Y5:TABC8)Y6;T 
ABC14)Y2;TAB(22)Y8;TAB[26)YS:TAB(232)Y8;T 
ABC38) "ED" 

2582 PRINTTABCI3“FD";TABC2)TS5;TAB(8)T6;T 
ABCI4)T2;TAB(28)T8;TABC283719;TAB(32)TO;T 
ABC38) "ED" 

2590 PRINTTAB(5);"BI00 Per continuare b 
arti un tasto" 

2600 GETA$:IFA$=""THEN2602 

2610 IFASO""THENIS® 

300B REM AXKKAKXXKXKAXKXAKXKXXXXXXKKXKXXXXKXkkXX 

3012 REM * LINEA DI FINE UTILIZZAZIONE* 

3020 REM XEKKKXKKKXKXKKXKXXXXXXXXKXKXXKKkKXX 

3238 PRINT"B"=®CLR:END 


.Z 
7, 


xx 


Grafica 3-D 


Una delle caratteristiche principali del Sega è, 
senza dubbio, la notevole quantità di istruzioni 
grafiche previste nel SET del sistema. 

Senza dubbio l’SC-3000 non ha nulla da 
invidiare a macchine ben più costose e 
sofisticate e permette una discreta 
programmazione anche in un campo 
decisamente «difficile» quale la grafica. 

Oltre alle solite possibilità, quali il 
tracciamento di singoli punti e di segmenti in 
qualsiasi modo orientati, la funzione che 
merita una particolare attenzione è quella che 
permette di tracciare cerchi e archi di 
circonferenza. 

La funzione CIRCLE si avvale di ben 7 
parametri e consente di tracciare anche ellissi 
variamente posizionate. L’ultimo parametro 
consente anche di disegnare dischi o 
comunque figure il cui interno sia colorato. 

Gli esempi che appaiono su queste pagine 
sono una chiara dimostrazione delle enormi 
possibilità a disposizione. 

Osserviamoli con maggiore attenzione. 

FIG. 1 

Come si può vedere è possibile con poche 
linee di programma avere a disposizione una 
figura che ricordi un merletto, senza che lo 
stesso disegno si ripeta più di una volta. Il 
programma, un DEMO per il Digitek MPF Il, è 
molto semplice. 

Fornendo valori RANDOM ai parametri, si ha 
a disposizione una gamma infinita di figure. 
FIG. 2 

Questo secondo esempio è una particolare 
utilizzazione dell'istruzione LINE. La 
particolarità consiste nel fatto che i valori 
identificanti gli estremi di ogni segmento che 
compone la figura, sono ottenuti mediante 
alcuni calcoli ricavati dall'uso delle funzioni 
SENO e COSENO. 

FIG. 3 

Programma molto semplice che permette di 
valutare la risoluzione del monitor o del 


= bla 


televisore collegato al sistema. Volutamente è 
stato inserito un errore di allineamento sugli 
angoli in alto a destra ed in basso a sinistra. 
Se non si riesce a vederlo è giunta l’ora di 
regolare meglio il monitor o televisore ed, 
eventualmente, di sostituirlo. 

FIG. 4 

Questo esempio fornisce un quadro d’insieme 
molto generale sul tipo di figure circolari che è 
possibile disegnare alterando opportunamente 
i parametri. 

FIG:5 

Un esempio di notevole effetto, peccato che 
la fotografia non riesca a rendere 
perfettamente la spettacolarità della fugura. 
La sola funzione grafica usata è CIRCLE. Per 
ottenere l'andamento sinusoidale della 
FIGURA, si è variato il punto di centro dei 
circoli secondo un ciclo FOR-NEXT per l’asse 
delle X, e mediante un'istruzione del tipo 
Y=SEN(X) per l’asse Y. 

FIG. 6 

Anche in questo esempio si è fatto largo uso 
dell'istruzione CIRCLE. 

Il programma, ribattezzato ampollosamente 
SATURN DRAWER, mostra però quella che 
nel gergo dei disegnatori viene chiamata 
aberrazione o distorsione visiva. Si noterà 
certamente che gli archi di circonferenza con 
cui sono rappresentati gli anelli del pianeta, 
cessano bruscamente prima che vengano in 
contatto con la superficie dello stesso. Ciò 
deriva dal fatto che non si sono variati i 
parametri riguardanti il punto d’inizio ed il 
punto di fine dell'arco di circonferenza per 
ogni diametro usato. 

Invitiamo tutti i volenterosi a voler trovare un 
metodo di risoluzione del problema ed 
eventualmene a volercelo comunicare. 
L'ultima foto mostra cosa si può riuscire a 
disegnare sul SEGA se solo si ha una buona 
dose di pazienza e volontà. 

Un discorsetto a parte merita l’ultimo 
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programmino proposto. Si tratta di un 
esempio di grafica a tre dimensioni, In questo, 
come del resto in tutti i casi simili, vengono 
fuori alcuni problemi tipici della fascia di 
computer di cui anche il SEGA SC-3000 fa 
parte. Anche in questo caso, così come per 
macchine più illustri, il tempo per tracciare 


HI-RES .1 


10 
20 
30 
40 


CLS:SCREEN 2, 2:CLS 
F=INTCRNDC1)}X13)+2:K=1.2 
M=RND(1)*30+3 

N=RNDC1)XM+1 

5A COLORO; 1, (0,0)-(254, 191);1 
60 LX=140:LY=95 


70 FOR A=0@ TO 70 STEP RNDC1)+.@Qìi 


80 R=SIN((MZN]IXA)X90 

90 X=140+KXRXSINCA):Y=95+tRXCOSCA) 
100 LINE (LX,LY]}-C(X,Y),F:LX=X:LY=Y 
110 NEXT A 

120 X$=INKEY$ :BEEP:IF X$="" THEN 120 
130 GOTO 10 

HI-RES 2 


10 SCREEN 2,2:COLOR2,;1,(0,0)-(254, 191) 


QD 


CLS :P=3,14159:0=180 

FOR A=1 TO 1180 STEP 38 
X1=200-(S9XCOS(PXA/0-2,5))/2 -50 
Yl=(1XSINC(PXA-0)+A72)-/10 
X2=152-(SXCOS(PXA/0))7,5-130 
Y2=(2XSIN(PXA70)+A72)/1.5+64 
O=INTCRNDC1)X13)+2 

90 LINE CY2X.5;X1)-(Y1+99,X2];0 
160 NEXT A 

110 GOTO 110 


MODOU0AUWIN* 
O9ODO 


0.0] 
Oo 


HI-RES: 3 


10 CLS:SCREEN 2,2:COLOR1,1,(0,0)-(255, 
19F),1 

20 CLS:FOR I=1 TO 127 STEP 3 

30 LINE (64+I,1)-C191-I,I),S:NEXT I 

49 FOR I=1 TO 127 STEP 3 

50 LINE CI+64,1)-(1I+64,127-1),5:NEXT I 
60 GOTO 60 
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tutta la figura, raggiunge «traguardi» piuttosto 
elevati. Ciò è dovuto al fatto che la routine 
usata, traccia punto per punto tutta la figura e 
deve calcolare ed evitare di disegnare tutti i 
punti che si trovano — dietro — quanto già 
disegnato. 


HI-RES 4 


10 CLS:SCREEN 2,2:CLS:COLOR1,15,(@,0)- 
(255,191), 15:E=191 

20 FOR Q=1 TO 64 

30 X=C(RNDC(13)X205)+25:Y=(RND(1)*14@)+25 
:3K=INTCRNDC1)*X14)+1 

40 CIRCLEC(X;,Y),RNDC1)}X22,K, (RNDC1)X2), 
0,1 

50 NEXT Q 

60 GOTO 10 


| HI-RES S 


AI 


10 CLS:SCREEN 2; 2:CLS:COLOR1,1,(0,0)-( 
255; 1913); 1 1X=30 


FI 
C 
n 


ma 


17/4 


s pr 


20 FOR I=0 TO 6.5 STEP .1 1 REM ###4#44#######4#4#4#4H4H#4HHH#HHHHHH 

30 X=X+3  :Y=(SINCI)X50)+90 2 REM # # 

40 CIRCLECX;Y),209,5,1;0;1 3 REM # GRAF CA 4 

50 NEXT I 4 REM # 4 

60 GOTO 60 5 REM # TRIDIMENSIONALE # 
6 REM # H 
ZERER RE SEGA  SC-300C # 
8 REM # # 
9 REM ###H##H#H#H#H#H#H#HHHHHHHHHHHHHHHHH# 

HI-RES 6 10 CLS:SCREEN 2;2:CLS:COLOR1,1,(0,8)-( 
254, 191);1 


20 DIMAC(254):T=15 
FOR YY=-9.5 TO 9.5 STEP .7 

FOR XX=-9.5 TO 9,5 STEP .98 
Q=CSORCC1+XKKXXZ16+YYXYY79IKC(C1+XXX 


O 


O 


SD 


2REEN 2,2:COLOR1,1;(0,0)-(255,191) 


XU SU 


1 X/16+YYXYY/9)+1/23)) 
30 CLS:CIRCLE(127,;95),64,5,1,0,1 60 Y=INTCCSINCQ)/0)X75+TX1.3) 
48 FOR I=1 TO 6:READ 4 Q X=INTCCXX+9,5)X9.5)+TX. 92-14 
50 CIRCLEC(127;95),;64/J,5,J,;0, 1:3NEXT I 80 IF X>@ AND X<254 THEN IF YMACX) THE 
50 DATA 1.2:1.532,3.22512:8 N ACX)=Y:Y=191]1-Y:GOSUB 110 
28 FOR I=1 TO 5:READ K IO NEXT XX:T=T+2:NEXT YY 
8@ CIRCLE(127;95),64,5,K,@,1:NEXT I 100 GOTO 100 
98 DATA .02;.1,.3;.5,.8,1 1i0 IF X>254 OR X<@ OR Y)181 OR Y<@ TH 
180 FOR I=@ TO 24 STEP 4 EN RETURN 
110 CIRCLEC(127,95),90+1,8,.2,;.88,.62:N 120 K=INTCRNDC1)X13)+2 
EXT I 130 PSET (X;Y3,K 
20 GOTO 120 140 RETURN 
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Caccia all’U-Boote 


Siete in missione al comando di una squadra 
di 5 sommergibili. Riuscirete a distruggere il 
convoglio nemico? 


STRUTTURA DEL PROGRAMMA 


10-100 Presentazione grafica e titoli 
110-150 Stampa istruzioni e scelta livello 
i di difficoltà 

160-180 Stampa sfondo del gioco 

190 Stampa striscia punteggio 

200 Stampa U-BOOTE in posizione 
iniziale 

210 Loop movimento nave da sinistra 
a destra 

220 Loop movimento nave da destra a 
sinistra 

230 Termine gioco per esaurimento 
tempo disponibile 

240-250 Esplosione U-BOOTE 

260-300 Termine gioco 

310-330 Aggiornamento numero U-BOOTE 
ancora disponibili 

340-430 Esplosione e affondamento nave 

440 Scelta casuale direzione 
movimento nave 

450 «Data» musicali dei titoli 

3000 Coordinata posizione iniziale 


18 REMXCACCIA ALL’U-BOOTEX 
20 REMXBY E.FABRIZI-1984% 
30 REMXSHARP M2-720% 
42 COLOR; ;7,1:PRINT"@":CONSOLE@, 12:PRINT 
[,51"O" :CONSOLE :DIMA$(4) : TEMPO? 
59 A$C1)=" C8E2 
":A$(2)="83 C8CgE9 C2E2 

" :A$(3)="EEC80808C8C8C8C8C8C8C8C8C8C8 
C8C8C8C8C8C8 ":A$(4)=" FECBCBC8C8 
C8C8C8C8C8C8C8C8C8C8C8C8C8C9 "3T$ 
="CACCIA ALLU-BOOTE" 
69 COLOR, ; 3; 1 :FORK=38T01SSTEP-1 :CURSOR8, 
18:FORJ=1T04 :PRINTTABCKILEFTSCA$(JI; 48-K 
) 3 :NEXTJ :GOSUBS@52 :NEXTK 
78 CURSOR22, 19:PRINT"8A" :GOSUBS000 : GOSUB 
5260 :PRINTTAB(22) "MMMMEE" :G0OSUBS200 :GOSU 
BS060 :PRINTTABC22) "MMMNZE " :GOSUBSO08 :G0S 
UBS068 :PRINTTABC22) "MENMCS" :G0SUB5822 :G0 
SUBS060 :PRINTTAB(21)"f9MMN7A" :G0SUBSA2 :G 
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U-BOOTE 
3100 Spostamento U-BOOTE 
32-3460 Subroutine di svolgimento del 


gioco 
5000-5030 Subroutines sonore 
5050-5070 Subroutines pause e rallentamenti | 
di esecuzione del programma 


VARIABILI 
K,J,0,R,W,T Contatori loops 
Z Livello di difficoltà 


N Contatore navi affondate 

U Contatore U-BOOTE distrutti 

TM Contatore tempo disponibile 

Vv Controllo direzione movimento 
U-BOOTE 

= Coordinata posizione nave 

F1,F2,F3 Grafica nave 

L Coordinata posizione bombe di 
profondità 

M Coordinata posizione siluri 

A Coordinata posizione U-BOOTE 

B,C Grafica U-BOOTE 

X,Y,l Controlli blocco esecuzione di 
alcune parti della routine 

A$(4) Grafica presentazione 

T$ Titoli VRIPIECRETR: 

M$ Musica titoli RI AL RI SERRA: 


VESEL LAMA LIA 


n 


SÒ 
NANA MA 


# 


] i Dj 


OSUBS868 :COLOR, , 72,1 
82 FORK=1TOLENCT$) :FORJI=1T08 :CURSOR22, 20 
-J:PRINTMID$(T$;K;1):G0SUBS8050 :CURSORZ22, 
22-J PRINT" ":NEXTJI =:PRINT[0; 5] "BAA"TABC22 
-KILEFT$C(T$,K) NEXTK :CURSOR4, 10 :PRINT[5, 
S]T$ 
Se Ts="di E. FABRI2I-1984":FORK=1TOLENCT 
©) :FORJI=1T05:CURSOR22; 20-J :PRINTMID$CT$; 
x ]):G0SUBS958 :CURSOR22, 20-J PRINT" ":NE 
XTJ:PRINT[0,4]"MA"TABC22-KILEFT$(T$,K):N 
EXRTK 
122 RESTORE:TEMPOS :FORK=1T02 :FORJI=9T014: 
POKES5S699+J , 85 :POKES5739+J, 5 :POKES55748+J 
» 85 :POKES57982+J;, 5 :READM$ :MUSICM$ :NEXTI :P 
0KESS714,85:POKES5S754, 5 :NEXTK : TEMPO? 
118 COLOR, 7;2:PRINT"®B":CURSOR4,3:PRINT" 
Siete in missione, al comando di" :PRINTT 
28C(4)"una squadra di 5 sommergibili. ":PR 
INTTAB(4)"BRiuscirete a distruggere il c 
on-" :PRINTTAB(4)"vogs lio nemico ?" 
122 PRINTTAB(4)"MBAttenzione alle bombe d 
profon-":PRINTTAB(4)"dita” e 
». "PRINT 
138 CURSOR28, 15 :PRINT"[T]" :PRINTTABC(6)"M 
avimento U-BOOTE [€] [>]":PRINTTAB(28 
I"[$4]":PRINTTABC(26)"ADOC0E0E0EDEDEOCE " 
142 PRINTTAB(6) "Lancio siluri EDSP 
azIOFD":PRINTTAB(26)"CDEOE0EBEDEDEODD" :P 
RINT"EBScegli il livello di difficolta” [ 
1-9]" 
158 GET2:IF2=@THEN150 
152 COLOR, ;7,]:PRINT"@":CONSOLED, 12:PRIN 
TC,5)]"8" :CONSOLE :COLOR, ;, 4,5 :CURSORO, 5 :PR 


T 


suaan 


ULI 


RISIOITISICICO 
dd €. è MO 
$:$.905068: 

ww 

dC < 
n? 


ICIIL ILE PIILATO: 


tidd 
” 


cet 
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C8C8C8C8E9 


INT"ES" :PRINT"C8" :PRINT"C8C8":POKES53489, 
181 :POKE55537, 133 :PRINT"C8C8D5" :POKE5353 
0; 181 :POKES5578,; 133:PRINT"C8C8C8" 
1728 PRINT"C8C8C8" :PRINT"C8C8C8C8";TAB(36 
}"F5C8C8C8";:PO0KE53651, 158:POKESS699, 133 
:POKE53685, 158 :POKE55733, 133 :POKE53686, 2 
15:!POKESS734, 133 :P0KE53687, 216 :POKES5735 
»133:COLOR, 34; 1 :FORK=1T07 :PRINT"C8C8C8C8 
"3TAB(36)"C8C8C8C8" ; NEXT 
189 PRINT"C8C8C8C8";TAB(36)"CB8C8C8C8" ; :P 
RINT"C8C8C8C8":PRINT"C8C8C8C8C8E9 c2 
F5C8C8C8C8C8C8E9 F5C8 
8C8C8C8";:CONSOLE22,3:PRINT[,4]"B":CONSO 
LE 
199 N=@:U=5:TM=3200 :CURSOR®, 23 :FrRINT[7,0 
]"Navi affondate: U-BOOTE :5 Tempo:300 
O ";:FORJ=2T03:POKE56132+J, 176 :NEXT :POKE 
54085, 86 :P0KES48286, 84 :POKE54287, 82 
208 U=4 :G0SUB3888 :60SUB3128:6070448 
210 E=53694:F1=88 :F2=163:F3=249:FORK=9T0 
28 :E=E+1 :POKEE;F1 :POKEE+2848, 133 :POKEE-1 
»F2:POKEE+28247, 133 :POKEE-2,F3:POKEE+29465 
s 133:G0SUB3200 :POKEE+2046, 85 :NEXTK :GOT04 
40 
220 E=53723:F1=86:F2=162:F3=250:FORK=2T0 
28:E=E-1 :POKEE; F3:POKEE+28948, 133 :POKEE-1 
sF2:POKEE+2047, 133 :POKEE-2;F1 :POKEE+2046 
»s 133:G0SUB3200 :POKEE+2048, 85 :NEXTK :GOT04 
40 
238 CURSOR®, 23 :6G0SUBSQ12:PRINT[7,80)" 
TEMPO ESAURITO 


O 


"5:G 
070272 

2408 FORJ=241T0255:P=INTCRND(19)X*128):POKE 
Li J:POKEL+2048;, P:POKEL-1, 198 :POKEL+2047, 
166 :POKEL-408, 127 :POKEL+2208, 166 :POKEL+1, 
196 :POKEL+2249, 166 :POKEL+408, 195 :POKEL+29 
88,166:G0SUB50208 . 

258 POKEL+2947, 17 :POKEL+20928, 17 :POKEL+20 
49,17 :POKEL+2988, 17 :NEXTJ :FORJ=-27T02 :POK 
EL+J+2948,; 17 :NEXT :U=U-1 :IFU>@THEN312 

262 CURSORO, 23 :G0SUB5218:PRINTL[72,8]" 
SQUADRA SOMMERGIBILI DISTRUTTA Lat 
278 GOSUB5970 :PRINT[72,9]"9 HAI A 
FFONDATO";N;" NAVI "j:G0SUB50978 :CURS 
ORO, 23:PRINT[7,8]"Se vuoi siocarne ancona 
premi <Y> cale 

288 GETè$:IF2$=""THEN280 

290 IF2$="Y"THEN119 

3929 PRINT"®A":CURSORO, 22 :END 

318 CURSOR26, 23:PRINT[2;93U;:IFU=1THEN33 

[; 

322 GOT0200 

332 FORQ=BT03:POKE56132+0, B:NEXT :G070328 
342 POKEL,B:L=@:Y=B:1=]:M=M-40:FORJ=241T 

0255 :P=INT(RNDC1)*128):POKEM, J :POKEM+204 

8,P:POKEM-1, 128 :POKEM+2247, 166 :POKEM-48, 


7, 


14 


197 :POKEM+2008,; 166 :POKEM+1, 106 :POKEM+2@4 
9, 166 :G0SUB5030 

352 POKEM+2047; 85:POKEM+2088,85:POKEM+22 
49, 85 :NEXTYJ 

360 FORJ=-2T02 :POKEM+J+2048, 85 :NEXT 

370 21=2:2=9:S=1:FORR=1T09:E=E+48 :ONDGOT 
0420, 430 

382 FORO=2T04:IFE=A+QTHENL=A+1 :POKEE+204 
8, 17 :POKEE+2947;17:POKEE+2046, 17:I=2:2=2 


1:S=2 :G0SUB3358 :G0T0240 
390 NEXTO 


4092 POKEE+2248; 17:POKEE+2247,17:POKEE+22 
46, 17:NEXTR:1=09:S=0:2=21 :G0SUB3350 

418 GOT0440 

422 POKEE;F1:POKEE+2048, 241 :POKEE-1,F2:P 
OKEE+2947, 241 :POKEE-2,F3:POKEE+2946, 241 : 
GOSUB3208 :GO0T0388 

430 POKEE,F3:POKEE+2048; 241 :POKEE-1,F2:P 
OKEE+2047; 241 :POKEE-2,F1 :POKEE+2046, 241: 
GOSUB3288 :G0T0382 

4428 D=INTCRNDC1)X2+1):FORK=2T031 :POKES57 
49+K,85:NEXT :ONDGOT0218, 220 

452 DATA C5,E3;63,A4,E1,;A3,R3,+C5,+D3,63 
,+C5;R3,A5;+C3;A3,63,A3,B3,+C3,+E1;R2;G1 


»#F3,63,+D1,R2,61,#F3,63,+C5S 

3009 A=54080 :B=86 :C=177 :RETURN 

31928 FORW=2T02 :POKEA+W+2948, 177 :NEXT :POK 
EA, B:POKEA+1 , B-2:POKEA+2, B-4 :RETURN 

3208 FORT=1T018-2 :TM=TM-1 :CURSOR35, 23 :PR 
INTL7, QIUSING"####" TM; : IFTM=@THEN230 
3219 IF(Y=@)XCI=B)THENL=E+49:Y=1 

3222 IFY=1THENPOKEL,@:L=L+40:POKEL, 238:P 
OKEL+2948, 113:IFL> 54043THENY=0 :POKEL, © 
3232 IF(L=A)+(L=A+1)+(L=A+2)THEN240 
3242 GET2$:IF2$="" THEN3380 

3250 IF(2$=CHR$(32))%*(X=2)*(S=2) THENM=A- 


39 :POKEM, 53 :X=1 :6070331@ 
3262 IF2$="B"THENU=1:607T03380 


3270 IF28="E"THENU=2 :G0T03380 

3280 IF2$="M"THENU=3:G0T03380 

3290 IF2$="M"THENU=4 :G07T03382 

3300 G0SUB3108 

3310 IFX=1THENPOKEM, @:IF(M=E+40)+(M=E+39 
)+(M=E+383THEN342 

3320 M=M-42:1FM<53733THENX=2 :G0T03342 
3330 IFX=1THENPOKEM, 53 :POKEM+2848, 113 
3342 NEXTT RETURN 

3352 N=N+1:IF(N=15)+(N=52)+(N=122)THEN33 
78 

33620 CURSOR15,23:PRINT[2,9]N; :RETURN 
3372 FORH=@T03820STEP25:CURSOR35; 23 :PRIN 
TL7, QIUSING"####" 5H; :GOSUB5230 :NEXT :TM=3 
220 :G0703360 

3388 ONUGOT03390,; 3410, 3430, 3452 

3392 POKEA+2059, 17:A=A-1:IF(A=53732)+(A= 
53772)+(A=53812)+(A=53852)+(A=53892)+(A= 
53932)+(A=53972)+(A=54012)+(A=54052)THEN 
A=A+1 

3490 G0T03300 

3412 POKEA+2048,17:A=A+1:IF(A=53761)+(A= 
53801)+(A=53841)+(A=53881]+(A=53921)+(A= 
53961)+(A=54921)+(A=54241)+(A=54981)THEN 
A=A-1 

3422 60703300 

3432 POKEA+2248, 17 :POKEA+2049, 17 :POKEA+2 
250, 17:A=A-48:IFA<S3762THENA=A+42 

3442 GOT03328 

3452 POKEA+2248; 17 :POKEA+2049, 17 :POKEA+2 
250, 17:A=A+42:IFA) 54092 THENA=A-42 

3460 60703320 

5900 MUSIC"+C1":RETURN 

5910 MUSIC"A1BICIDIE1F1G1":RETURN 

5a20 MUSIC"-F@" :RETURN 

5830 MUSIC"+C@" :RETURN 

5950 FORPS=1T025:NEXTPS :RETURN 

5262 FORPS=1T0220 :NEXTPS :RETURN 

5872 FORPS=1T02200 :NEXTPS :RETURN 


#14 


Òimanania 


== === k / 


= yz} 


Disegnare con il computer 


H ASCII72 | ASCI1173 J ASCII 74 


LT 


M ASCI177 N ASCII78 O ASCI179 


ASCI1S82 T ASCIIS4 U ASCII85 


[Le 


Un programma su misura per novelli artisti 
informatici, che offre la possibilità di creare 
ben 71 caratteri ridefinendoli DA TASTIERA 
con i codici esadecimali, più 15 caratteri già 
predefiniti per l'uso immediato. 


IL PROGRAMMA 

Creare la «tavolozza» di base scegliendo il 
colore del video (da 1 a 16), ed immettendo 
nelle 11 istruzioni di INPUT successive, il 
codice del colore del carattere e, dopo una 
virgola, il codice del colore di sfondo dello 
stesso. 

Fatto questo, saranno visualizzati il colore 
prescelto e 2 cursori. 

Spostarli con i soliti tasti E, X, S, D disposti in 
modo da richiamare i movimenti ad essi 
assegnati e digitare uno dei tasti con i 
caratteri predefiniti, di cui più avanti si 
ritroverà il PATTERN ad essi essegnato (Hi, |, 
J;:1#6,/L MEN; PG BLU. MM. 

Il carattere apparirà sullo schermo nel punto 
di incontro dei due cursori; per cancellare tale 
carattere o qualsiasi altro, premere la barra 
spaziatrice. 


CREAZIONE DI NUOVI CARATTERI 


Premere contemporaneamente i tasti SHIFT e 
1: si udirà un segnale acustico; premendo 
SHIFT e $ apparirà il codice ASCII 89. Se 


K ASCiII75 L ASCI1768 


P _ASCIISO GA ASCIISI 


VM ASCIISS W ASCIIS7 


non si vuole ridisegnare tale carattere tenere 
premuti i suddetti tasti e le cifre scorreranno 
in ordine crescente sino al 159 per poi 
ritornare a 89 e così via. 

Scelto il carattere da mutare, digitare 
normalmente le 16 cifre esadecimali che 
corrispondono al PATTERN dello stesso (vedi 
il manuale di istruzioni alle pagg. 83 e 
seguenti): in un istante il nuovo carattere 
verrà visualizzato nel punto di incontro dei 
cursori. 

Da questo momento in poi basterà premere 
semplicemente il tasto corrispondente al 
codice ASCII prescelto, per vedere 
visualizzato il nuovo carattere ogni volta che 
occorrerà. 

A tal proposito bisogna ricordare che per 
richiamare i caratteri dal 128 al 159 si deve 
digitare CTRL e , (virgola) per il 128; CTRL e 
. (punto) per il 155; CTRL e : (due punti) per il 
156; CTRL e + (più) per il 157; CTRL e 8 per 
il 158; CTRL e 9 per il 159 ed infine per i 
codici compresi tra 129 e 154 basterà digitare 
CTRL e le lettere da A a Z in ordine 
alfabetico. 

Dulcis in fundo, è possibile cambiare colore 
allo schermo fra i 16 a disposizione digitando 
SHIFT e + (più). 

Buon divertimento per le vostre ore a tutto 
schermo! 
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VARIABILI PRINCIPALI 


R Rigacursore X Colonna dello schermo 

G Colonna cursore ESA Conteggio delle 16 cifre esadecimali 

CA Caratteri ridefinibili con il codice Z$ Stringa esadecimale ottenuta 
esadecimale 


CA$ Stringa del codice ASCII carattere PATTERNS CARATTERI PREDEFINITI 


10 CALL CLEAR 500 CALL COLOR(9,C9,59) 

20 CALL SCREENII11) 510 CALL COLOR(10,C10,510) 1110 IF K=36 THEN 1580 

30 PRINT "DISEGNARE COL COMPUTER 520 CALL COLOR(11,C11,S11) 1120 IF ((K)47}#(K<58))+({K>64)#{K<71))T 
DADO 1984" 530 CALL COLOR(12,C12,512) HEN 1140 

40 FOR TTT=1 TO 2000 540 CALL COLOR(13,C13,513) 1130 GOTO 1090 

50 NEXT TTT 550 CALL COLOR(14,C14,514) 1140 CALL HCHAR(24,ESA,K) 

60 CALL CLEAR 560 CALL COLOR(15,C15,515) 1150 ESA=ESA+1 

70 INPUT "COLORE VIDEO ? ":X 570 CALL COLOR(16,C16,516) 1160 IF ESA=19 THEN 1180 

80 INPUT "INS.6 CARATTERE ? SFONDO ? "i | 580 CALL KEY(0,K,8) 1170 GOTO 1090 

C4,S6 590 IF S=0 THEN 580 1180 CALL GCHAR(24,3,A) 

90 INPUT "INS.7 CARATTERE ? SFONDO ? ": | 600 IF (K=B8)+(K=120)THEN 710 1190 A$=CHRS(A) 

C7,57 610 IF (K=69)+(K=101)THEN 760 1200 CALL GCHAR(24,4,B) 

100 INPUT "INS.8 CARATTERE ? SFONDO ? " | 620 IF (K=68)+(K=100)THEN 810 1210 B$=CHR$(B) 

1C8,58 630 IF (K=B3)+(K=115)THEN 860 1220 CALL GCHAR(24,5,CC) 

110 INPUT "INS.9 CARATTERE ? SFONDO 7" | 640 IF K=43 THEN 1020 1230 C$=CHRS(CC) 

1C9,59 650 IF K=33 THEN 1070 1240 CALL GCHAR(24,6,D) 

120 INPUT "INS.10 CARATTERE ? SFONDO ? " | &60 IF K<>88 THEN 670 1250 D$=CHR$(D) 

1C10,510 670 IF K<>69 THEN 680 1260 CALL GCHAR(24,7,E) 

130 INPUT "INS,11 CARATTERE ? SFONDO ? " | 680 IF K<>68 THEN 690 1270 E$=CHR$(E) 

iC11,S11 690 IF K<>83 THEN 910 1280 CALL GCHAR(24,8,F) 

140 INPUT "INS.12 CARATTERE ? SFONDO ? " | 700 GOTO 580 1290 F$=CHR$(F) 

1C12,512 710 R=R+1 1300 CALL GCHAR(24,9,6) 

150 INPUT "INS.13 CARATTERE ? SFONDO ? “ | 720 IF R>23 THEN 940 1310 G$=CHR$(G) 

1C13,513 730 CALL HCHAR(R,1,41) 1320 CALL GCHAR(24,10,H) 

150 INPUT "INS.14 CARATTERE ? SFONDO ? " | 740 CALL HCHAR(R-1,1,32) 1330 H$=CHR$(H). 

1C14,514 750 GOTO 580 1340 CALL GCHAR(24,11,1) 

170 INPUT "INS.15 CARATTERE ? SFONDO ? " | 760 R=R-1 1350 I$=CHR$(I} 

1C15,S15 770 IF R<2 THEN 960 1360 CALL GCHAR(24,12,L) 

180 INPUT "INS.16 CARATTERE ? SFONDO ? " | 780 CALL HCHARCR,1,41) 1370 L$=CHR$(L) 

1C16,516 790 CALL HCHAR(R+1,1,32) 1380 CALL GCHAR(24,13,M) 

190 CALL CLEAR 800 GOTO 580 1390 M$=CHR$(M) 

200 CALL SCREEN(X) 810 CsC+1 1400 CALL GCHAR(24,14,N) 

210 R=2 820 IF C>32 THEN 980 1410 N$=CHR$(N) 

220 C=2 830 CALL HCHAR(1,C,40) 1420 CALL GCHAR(24,15,0) 

230 CA=88 840 CALL HCHAR(1,C-1,32) 1430 0$=CHR$(0) 

240 CALL CHAR(40, "AAAAAAAARAARAAAA") 850 GOTO 580 1440 CALL GCHAR(24,16,P) 

250 CALL CHAR(41, "AAAAARAAAAAAAARA") 860 C=C-1 1450 P$=CHR$(P) 

260 CALL COLOR(2,2,16) 870 IF C<2 THEN 1000 1460 CALL GCHAR(24,17,0) 

270 CALL HCHAR(1,C,40) 880 CALL HCHAR(1,C,40) 1470 Q$=CHR$(0) 

280 CALL HCHAR(R,1,41) 890 CALL HCHAR(1,C+1,32) 1480 CALL GCHAR(24,18,RR) 

290 CALL CHAR(72,"0102040810204080") 900 GOTO 580 1490 R$=CHR$(RR) 

300 CALL CHAR(73,"8040201008040201") 910 CALL HCHARCR,C,K) 1500 X$=A$&B$&C$kKD$KESkF$8LG$kH$ 

310 CALL CHAR(74,"8080808080808080") 920 CALL SOUND{100,K#10,10) 1510 Y$=I$&L5&M$KN$kO0$&P$k0$kR$ 

320 CALL CHAR(75,"0101010101010101") 930 GOTO 580 1520 2$=X$kY$ 

330 CALL CHAR(74,"FF") 940 R=23 1530 CALL CHAR(CA,Z8$) ci 

340 CALL CHAR(77,"00000000000000FF ") 950 GOTO 580 1540 CALL HCHARCR,C,CA) 

350 CALL CHAR(78,"FF818181818181FF") 960 R=2 1550 ESA=3 

360 CALL CHAR(79,"FFFFFFFFFFFFFFFF") 970 GOTO 580 1550 CALL HCHAR(24,1,32,32) 

370 CALL CHAR(80,"B181818181818181") 980 C=32 1570 GOTO 580 

380 CALL CHAR(B1,"FF000000000000FF") 990 GOTO 580 1580 REM 

390 CALL CHAR(82,"FF8080B08080B080") 1000 C=2 1590 CA=CA+1 

400 CALL CHAR(B4,“FFO1010101010101") 1010 GOTO 580 1600 IF CA)159 THEN 1470 

410 CALL CHAR(85, "80B0BOBOBOBOBOFF") 1020 X=X+1 1610 CA$=STR$(CA) 

420 CALL CHAR(86,"O1010101010101FF") 1030 IF X>16 THEN 1040 ELSE 1050 1620 FOR W=i TO LEN(CA$) 

430 CALL CHAR(87,"3C7EFFFFFFFF7E3C") 1040 X=1 1630 AS=ASC(SEG$(CA$,W,1}) 

440 CALL COLOR(3,2,16) 1050 CALL SCREEN(X) 1640 CALL HCHAR(24,(24+W)-LEN(CA$) , AS) 

450 CALL COLOR(4,2,16) 1060 GOTO 470 1650 NEXT W 

460 CALL COLOR(5,2,16) 1070 CALL SOUND(100,1750,5) 1560 GOTO 1080 

470 CALL COLOR(8,C68,86) 1080 ESA=3 1670 CA=B8 

480 CALL COLOR(7,C7,57) 1090 CALL KEY(0,K,S) 1680 CALL HCHAR(24,1,32,32) 

490 CALL COLOR(8,C8,58) 1100 IF S=0 THEN 1090 1690 GOTO 1080 
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Supersnake 


«C'era una volta un serpentello 

che solo mosche voleva mangiare 
pensando così di volare. 

Ma non si rendeva conto, il poverello, 
che anziché volare quel.cibo 

lo faceva allungare...». 

Le istruzioni sono inserite nel listato. 


REM xXEFEFKFrFKkrtrrrr+trrrrsrstrrt 


2 
2 REM 
S REM SUPERSNAKE 
4 REM _ 
5 REM ZX - B1 1E6K 
6 REM 
Cl: MIT TTTITITTTTTTTITITTAT: 
8 REM 
10 REM è** COMANDI è+ 
12 REM A = SINISTRA 
125 REM L = DESTRA 
15 REM  D = BASSO 
24 REM 4 = ALTO 
15 REM 1’ = PAUSA 
18 REM 
20 DIM C(690) 
30 RAND 
40 GOSUB 5000 
SO LET DF=16396 _ 
80 LET DF=87+PEEK DF+256#PEEK 
(DF+1) 
100 LET REC=0 
119 LET CR=9 
120 LET PU=@Q 
200 LET TT=PU+40 
290 REM 
295 REI VUADRO INIZIALE 
300 REM 
3190 CLS 
320 PRINT “I PUNTI “iPU," CR 


LiEREAT 0,32; 


350 FOR_X=QO TO 31 
359 POKRE DG+X, 126 
379 POKE DP+X,128 
380 NEXT_X 

3998 LET DG=DF+31 

+30 FOR_X=@ TO 20 
+18 PORKE DF+335%XXx,128 
+20 POKE DO+33*XX,128 
+39 NEXT X 


+95 REM BRUCO 
S1® LET UWU=639@+DF 
A=U 


530 LET S=-33 
540 LET C{W-DF}) =S 
X=î TO 21@+CR 


W,52 
570 LET W=sW+C (W4-DF) 
s8s0 GoOsuB USR 15514 
5909 LET U=PEERK_ t(Ut+S) 
620 IF_U THEN GOTO 90600 
SIO LET CILU-DF)=ùS 
520 NEXT X 
SI0 REM 
595 RE? INSETTI 
709 REM 
710 FOR X=1 TO INTO (2xRND) +4 
729 LET SA=INT_ (5690 +RND) 
7359 LET SAN=PEEK (DF+5A) 
749 IF SRN_ THEN GOTO 720 
7509 POKE SR+DF , 235 
760 NEXT XxX 


79 REM 
7355 REM LOOP PRINCIPALE 
300 REM 


310 POKE U,52 
S2A PORE A_,QA 


GOSUB USR 16514 

LET U=SPEEK_ (W+S)} 

IF U=23 THEN _GOTO 2000 
IF_U THEN GOTO SQOO 


REM 

REM DIREZIONE 
REM 

RETURN 

LET S=-1 
RETURN 


LET_S=1 
IF TT-PU<49 AND RND<.5 THEN 


GOSUB 3200 

06 RETURN 

0S LET_S=S5 

859 IF _ TT-PU<4@ AND RND<.5 THEN 
vosus sana 

10 RETURN 

6 LET S=-535 

7 IF TT-PU<:4@ AND RND<.5 THEN 


“i 


UUPYUTPRUMPEOGGHIOWFPOPE 


LLIGLIMUNDUNRORPPppp pap ppÒpp PRE 
0GL0ONGNYULLCOGIFPPIPPH:MPPpP 
GFOOLLEGLLTUNIQIMO 


saba 
22065 
S219 
2220 


+rstttrrrxtkkx*": AT 1 
RECORD = 


SUB Sa00 


RETURN 

PAUSE d+E4 
RETURN 

REM 

REM MOSCA PRESA 
REM 


LET PU=PU+10 
PRINT _ AT Q, 10; PU 
GoeTo s6@ 


REM 

REM NUQUA MOSCA 

REM 

LET SA=INT_ (690 xRND) 
LET_ SAN=PEEK_ (DF+SA) 
IF SAN THEN GOTO Saw00 
POKÉ_ SA+DF ,25 

LET TT=TT+1©@ 

REM ROUTINE L.M. 

REM 


LET Ds$="2051587002124047198580 


750979005004 201" 
2a 


FOR_X=16514 TO 16524 
POKE _X,UAL Dsrl TO 331 
LET_D$=D${4 TO )} 
NEXT _X 

RETURN 


REM 

REM CRASH 

REM 

POKE U,52 

LET CR=CR+1 

LET Q=W+S 

PRINT AT_A,28; CR 
IF_CR=53 THEN GOTO 98200 
FOR_X=1 TO 10 

POKE Q,U 

RAND (<{({{({(2X+X2))})}) 
POKE G.,150 


REM 

REM FINE 

REM 

POKRE Q, 150 

PRINT AT 109,3 232 RaREREnE 
adi è* 

*“;AT 121,21;REC; 


AT 22,3; FFIFKFFFFKFrrrKrrrrrroerrroeoe 


** “(NT 
">. 


a230 


15,9; "UUDI GIOCARE ANCORA 
IF PU>MAX THEN PRINT AT 11, 


35; “ERA” 
9249 PRINT AT 14,5; " 


SIAT 16,5;" 


INPUT 1% 
IF_IT$<>"N" THEN GOTO 100 
STOP 


Il gatto e il topo 


Un topolino è rimasto intrappolato in un 
labirinto formato da cubi. Per uscire dal 
labirinto il topo deve passare sui cubi in modo 
da far cambiare loro colore. 

L'impresa sembrerebbe semplice, ma ad 
ostacolare il povero topolino ci sono delle 
pareti mobili, che si spostano casualmente 
all'interno del labirinto e un gatto che, 
naturalmente, dà la caccia al nostro eroe con 
l'intento di trasformarlo in un lauto pasto che 
soddisfi i suoi appetiti. 

Ulteriori istruzioni sono inserite nel listato. 
Attenzione! Le lettere maiuscole inserite tra 
virgolette vanno digitate dopo essere entrati in 
modo grafico (Graphics). 


L REM ttittatitttttttàtttttt titti 
= REM # n 
3 REM ff IL GATTO E IL TOPO un 
d. REM # pes 
5 REM f Zx-SPECTRUM 1656K-4SK # 
5 REM n 
2 REM # i RT 1 385 
S REM # b54 
a REM titititttittititittà i mit p@itititttttti 
10 REM 
15 REM 
sia CLEAR USR "a "'-509: LET cald&R 
“a'"'.-&S59: LET t=r+5: LET yw=r+25 
58 RESTORE PRPEFR FP: INK QD: & 
ORDER 7: CLS GO TO SAQO 
1050 LET qsl4435*( ( INKENW &="u" FINO 
ATTR {4 +42 ,xX1 =B2) — ( INKEV ba" FINO 
ATTE (4 -1,xX3=321)1 
1060 LET h=xX+54 | ( IMKEY $="@" Ar4o 
ATTER (14 > +BI = BEI  (INKEY Ga" " AND 
ATTRO (H,X- 13) =3Z211 


107?0 IF ATTR (qa,h1=532 THEN LET 


b 
PRINT #@0;AT ® 


=b+1: LET PpUspUtS 
) IS-LEN STRS PU:;PIU 
10509 PRINT PAPER GG;AT pa "* "LA 


TU H+4t1,X; RE 
1090 PRINT FAPEFR 5 
O 41) (AT 'H4t1,x;C$: 
1120 PRINT PAPER S&S; AT 
Ti sh 
1145 LET 


=E21- {dxx 


[ES 3%) | xh 
3AT U,XKi;ib$ (E "TE 
BETLERN 
Cda USAI 


4=9: 


ATTRI CC 


d=ed+B3*( (dx AND n 
ic.,d-11= 


AIN ATTR 


321) 
116502 PRINT FLASH Li 


a did$sie TO 2 +41}; AT c+1,d;je$ (e TO 
w +11 
1185 IF ATTR {4,3} » 158 THEN GU Si E 


o 100 

1170 RETURN F 
1176 FRINT PAFER S;AT era pi sa 
vw set d je *; 


11S0 LET c=ec+S3*( (c<cy AND ATTR Cc 
+2 .,8€1=52) - (c>4 AND ATTR (c-1,dl= 


321) 


1195905 PRINT FLASH 1; PAPER S;AT Cc 


s.did$(&e TO e+13; AT c+1,d;e$i(e TO 
+11 

1195 IF ATTR (4-,X:) > 159 THEN GO T 

o SIG 

1200 RETURN 

1300 PRINT AT Sa(1+INT (RND&511, 

1+5£ (INT (RNÒND*10)1); PAPER 4; " - 
RETURN 

TS ta LET ,sL14+tB3* INT (RND «71: LARA 

ie BE (1+INT (RIND +11 PRINT PAPER 
dp Roda AT Wi, Sg ST RESO 

i 0-4 CAO BRETUFRIHI 

1320 LET k=1+3*INT (RIND EF: SEE 


j=B* (INT (RND*1011 PRINT AT kad 


: *M*GAT k+l, Ji N": RETURN 

135409 PRINT AT Sae(1+INT (RINDEeSl 1 

T* CINTO (FRINDE1001); ">" OPA": BETURH 

16002 RENDOMIZE US t: RANDOMIZE 

USR wW: RETURN 

2004 IF INKEYWS="m" THEN Go SsUb + 

Dae”A 

2205 IF b>:659 THEN GO TO GRaROA 

26109 FOR e=1 TO 3 STEP = 

2aesos GO SUE 1040 

casa co sUb 1500 G0 SUE 1510 

2100 GO SUE 1115 

Zz110 GO SUB 13500: GO SUE 1351 

2115 NEXT € FOR e=s1 TU 3 STEP = 

2120 GO SUB 1040 

2130 GO SUB 1520 G0 SUE 1540 

2152 GO SUEG 11753 

25399 NEXT £: GO TO 2000 

5010 PRINT FLASH 1;AT (i, L5** 
LABIRINTO COMPLETO se 

Zaz2O FOR Ll=esoa TO Q STEP -2: FRIN 

# GRTT lodi “AD”: E Lap. fto eo AF 
, 28; "AB"; AT L+ei-a BE; OD". BORDER 
1; G0 SUE 1600: BORDER S: NEXT L 

30938 FOR Ll=1 TO &: FOR k=l TI ar 
RENDOMIZE USR t: BORDER L: ME SIT 
K FOR k=1 TO 3: RANDOMIZE ua 

yi: BORDER 7: NEXT k: NEXT L 

3093 GO TO 750 

31209 FOR L=9S TO 255 STEP 10: POK 

E iy+71,L:; RANDOMIZE USR wW: BORDO 

ER =: RANDOMIZE USR wW: BORDER FP: 
NEXT Li POKRE (W+71,9 

5130 LET Visvi-l: IF vis@® THEN 6 

o TO 3200 

519593 PRINT PAPEFR S;AAT c.d; " "= FAT 
a * ". GO TO 8600 

3290 FOR L=eS TO 15: PRINT AT Las 
> mi INMERST 
L 

35210 PRINT AT 109,19; GAME DUER"' 
;AT 12,4; > PREMI ‘Z° PER GIOCFARE"' 

a2za PRINT BO;/FIT O, 24; Set Li 

ga: DT 


lae® TO 


33253509 FOR 255 STEP S: PORKRE 
(t+t23,Ll:; RANDOMIZE ISPA t MET 
L: POKE (t+7) 6 

5249 IF INKEY$5="=2" THEN GO TO 52 
La 

53299 GO TO 7000 

10109 PRINT PAPER &;AT UWY.,s;" "5A 

T Neli” a 

+1215 GO SUE 1660: G60 SlE 1600 
4+0915 LET PU=INT i(pu-pu-r191:;: PRIN 

T #06;AfT @, 15-LEN STR Pfplui;pu 

41013 LET x=29-x: LET 4YsSQ@-U 

+46GS3 RETURN 

860645 DATA 24.; L17,55,536,68t,2; #7, 0 
,30,235,241,145,242,255,192, 1,4, 
S,239,4,7,30, 30, 125,64, 160,469, 165 
0,152, 240,240, ©, 120,135 ,143, 157, 
79,55,5,112, 136,196 ,3©6,2483,224,2 
cdi ,22d 

5096 :DATA A,0b,0,55, 102, 126, 30, l& 
7.114,22, ,2, 14,62, 252,248 ,69,25,2 
+,9,16,4,0,244A,210,16564., 156,04,09, 
SG.0, a, A,D9,Ik,2,2,194,242,.,254, 254 


158, 1,152 ,20,18,56 Ss 
5aoa” CATA TS eni vieta L'A Ld# 
Le scketas Le pi #0 AR e ET RAR 
1,51,09,0,0 
sang lie 55.65 55,255, 255,0, 
e,0,255,254, 252, DDA, 
SOA DATA da, 2, +60 ZI 
I, I5,15,15;30;0,243,211 254,238 
15,67, 16,2 254 29,3 248,251, 201 
cezl CORTA 565, ?2, idea, I 
243 ,;211,254,;,258, n, ,,5356 254,25 
32,2485,251,2@1 
6100 LET pus@: LET rece: LET B#& 
= 'ABEP“iI LET coke Cb" LET dsa"6iGNH 
SE ET eV 
S505 CLS PRINT AT ERI GG A 
me “RR n 5} 9 I° GP Ci 


DI E 


5109 PRINT FLASH 1; COVER 1L1;AT 0Q, 
e. 

‘“ 
6536 PRINT *" IN QUESTO GIOCO T 


SEI LN TOPORIMASTO IMPRIGIONAT 


DIN UN LAEBGI-RINTO FORMATO DA CU 
BI. PER VINCERE DEUITI PA 
SSARE SUI CU-BI IN MODO CHE GIULIE 
STI CARMBINO COLORE. "' 
65535 PRINT ©" NEL LCAEITRINTO GI 
SONO DELLE PARRETT MOBILI. CHE .D 
=TARCOLANO IL TUO CAMMINO, 

NEU LABIRINTO SE: 
ANCHE UN GAT-TO:SE QUESTI TI PRE 
NDE,PERDI UNAVITA." 
ossa PRINT "IN CRSQ DI EMERGENZA 
PUI SPARRIREMA CTO-*TFI cISTA. IL 1 
e: GEL TUO PUNTEGGIO. "' 
565357 PAUSE © 
osss CLS INK 3: LET L=eil@ 
549 PRINT ‘TAB L-=; INVERSE 1;" 
GO HRN Db I 


ig 


IA! 


NN 


6545 PRINT TARE Li; "ALTO = a" 

6550 PRINT TAE LL; "EASSO = WWW 

6551 PRINT TARE L; ">" SINISTRA = 9" 

6552 PRINT TAE LL; > GbESTRA = ©" 

65553 FPRINT TARE L; "> HELF = MM 

GSS FQaR: UsUsBs Val TO: WBSR "Lol: 
RERD k: POKE L,k: MEXT LL 

Gs5se FOR Lar TO r+4id&:; READ ki FO 

KE. Lalk: NEXT Ll: 60 SUE 1500 

6550 FRINT #G;AT 1,4; INUERSE LL; 
INK 2; ">'PREMI ‘x’ ER INIZIARE" 

6989 IF INKEY$<> "x" THEN GO TO & 

IIa 

SARAS IF pu>rec THEN LET recespulu 

7208109 LET pus@: LET vi=s3 

FepRa PARPEFR 5: CLA FUR le S8 TO 

G STEP -1 

F510 PRINT AT 11,0: "> AB GH"';AT 1 

e Lita He ISPRA en 

rasa POKRE ft+7lìi,Ll*aS9S+1: RANDCOMIZE 
VaR tt: RRNDCOMIZE USE t 

76309 PRINT AT 11, Li; "EF GR'IifT 1 


2; Li "ED iu RANDOMIZE USR t: R 
ANDOMIZE USR t: PRINT AT 11,L;" 
St Lio HESST Li 


POKE PREI Li INK @: PARPER *? 
1820 LET bal: CLS PRINT AT D,2 
E vebilo di RT T O E' Il. “(O e e 
7519 PRINT FLASH 1; QUER Li; THIK 
sb FATTO ND a go" pia 
RITA 
P929 FOR L=1 TO SM: PRINT PARPER 
got Lx 

e MEXT L 
9825 FOR Lt=s1 TO 19 STEP 3: PRINT 

Per baie AT LF, BI "NAT L+A; 
Le ati Pe NEXT L 
9265 PRINT FIT 21,6; "'AaPod0Ppat0PocPea 
CPROPRIROAPRTIOPAIOPAO OE I 
792 FOR L1=3 TO 27 STEP 5 FOR K 
=3 TO ‘16 STEP 3: PRINT RAT KkKa.l DI 
sali - MNESST Wa NEXT L 


Fis RANDOMIZE FOR La ta ho Su: cp 

RINT AT S&K(1I1+INT (RIDE S61 1 ,5*a TNT 
IRNCE1A11; "OPA": PETSET L 

+980 FUR Ut=-1 TO S: LET KkKel+G+*INT 
(RC «1: LET ieBG& (I+INT (Fb a 3) 

t: PRINT AT RG 4 IT AT kRéeboJi 
MEET LL 

50035 PRINT H#A;FIT @, 1;  FLUNTI DE 

DIO. RT Lg L9; VUEITE 3 PI GL 

sl; RECORD OH0QAa"':RT O,24;" 


5A094 PRINT HtO;AT @, 15 


UjPU;AT 1, 15-.LEN STR miete parte 
S6965 PRINT #©;RT 1,24;: FOR Lal 
TO Vai: PRINT #09; "vAE":; NEXT L 
S890 LET Us4l0: LET sed: LET csi 

lar” =s23: LET tel: 60 SUB 1868050 
SQO95 PRINT PARPEFRI BiAT UH, Mi "EF": 
T HY+tL.,x;cfé:. GO TO Sg 
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Oric sequencer 


6 b & 


che servono a far suonare una tastiera 
elettronica, in genere un sintetizzatore. 


Nella musica moderna, e specialmente nella 
disco-dance, è ormai diventato diffusissimo 
l'uso del SEQUENCER. Ma cosa è il 


SEQUENCER? 


Non è altro che un immagazzinatore di dati 


REMBBBSRHHHRIRH HAR BHEREHEBERE HABER 


2 REM * 
3 REMMORIC- SEQUENCER 
4 REME ti) 
5 REM®& di Fabrizio Russo = 
6 REM È) 
2? REM8 list - 1985 2 
8 e CRESCI rici 
9 GOsuBoeea 


18 PAPERO:INK?7 

13 HIRES:PRINTCHR8(17)CHR$(5) 

12 PRINTSPC(11)CHR$(4)CHRS(27)"NORIC-SEQ 
UENCER"CHR$(4); 

14 RE DISEGNO 1ASTIERA 

15 CURSET17;101,3:DRAWB,-25,1:0RAW222,8, 
1 :DRAWB8, 25, 1 :DRAU-222,0,1 

17 GOSUB155 

20 FORT=23T0229STEP35 

38 CURSETT, 198,23 

42 DRAWB,50,1:DRAWS,0,1:DRAN@,-25,1 

50 GOSUBI152 

6@ CURMOU-2,49,3:DRAWS,2,1:ORAWO,-25,1:G 
OSUB15a 

728 CURMOU-2,49,3:0RAWG, @, 1 :DRAW@, -49; ]:C 
URMOV8, 49,3 

80 DRAWÒS,8,1:DRAW®,-25,1:60SU8150 

908 CURMOU-2,49,3:DRAW6,@, 1:DRAWO,-25,1:G 
OSUB15e 

182 CURMOU-2,49,3:DRAW6,@8,1:*DRAWO, -25,1: 
GOSU8152 

110 CURMOU-1,49,3:0RAUS:0,1:DRAWIO, -49,; ] 
122 NEXT 

149 GATO0208 

150 CURMOV-1,-25,3:DRAWIB, 25, 1:CURMOV1,1, 


| dati che gli devono venire forniti sono: le 
note, la durata delle note e le pause come si 
leggono da uno spartito musicale. 


Fatto ciò il SEQUENCER è in grado di 


3:0RAWG,-25, 1 :CURMOV1, 25,3: 
DRAW®,-25,] 

151! GOSUB1SS:RETURN 

152 REM SUONO MOTIVETTO INIZIALE 
155 READA,B 

156 IFA=11THEN158 

157? MUSICI:B;A,9:PLAY1,0,1,3902:UAITIO 
158 READA,B:|FA=1]THEN1I60 

159 MUSIC1,8,A;@:PLAY1,0,1,2000 
160 RETURN 

200 AS="ORIC-SYNT' 

218 CURSETì70,90,3:605UB328 


220 A$="Po|y-3" 

239 CURSET20,82,3:G0SUB320 

237 2=20:0DIM02(256),E*(256) 

242 GOSUS1800:GOSUB) 152 :RUN237 

300 FORT=1TOLENCAS) 

319 CURMOV6, 0,3 

320 CHARASCC(MIDS(AS,T,1}),@,] 

330 NEXTT 

348 RETURN 

997 REM 

998 REM ROUTINE PRINCIPALE 

999 REM 

1800 G0sLB3100 

10901 CLS:8=@ 

1002 PRINT"! 1*=DO *2?=00# ?3/=RE *4’=RE# 
*5?=MI ‘’6!=FA *7’»FAR +8’ 

=SOL "; 

1824 PRINT"?9’=SOL# '@’=LA'-*=LA8 *=’=SI 

“35B$; 

1905 IFY=1THENGOSUB1152:G0T0]096 

1006 N=j:0=3:H=1]:T=]:A1=0:81=0:C=13]:C1= 

140:Y=) :5=0 

1008 GOSLB1158 

1009 REM ##888 RICHIESTA TASTO O NOTA 

1@1@ GETK£* 

1020 A=ASCCK$) 

1022 IFA=8THENO=0-]:60701198 

1025 IFA=STHENO=0+1:60T0119@ 

1027 IFA=6STHENO=0:6G0SU81152:6G05UB1160 
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suonare melodie e perfino intere canzoni 


1228 IFA=S2THENG=Q+1:0*(0)=14:60T0)010 
1832 IFA=4STHENN=10:C=156:C1=148:H=1:G0T 
01158 

1242 IFA=SSTHENN=1:C=131:C1=148:H=1:G0T0 
1152 

es 


@ IFA=S@THENN=2:C=133:C1=120:H=9:G0T0 
a 
C1=14@:H=1]:G070 


:C]=]20:H=@:G0T0 


1982 IFA=S2THENN=S:C=141:C]=140:H=]:G0T0 
1298 AIA torace oro 
1]090 IFA-=SSTHENN=7 :C=148:C1=120 :H=@:GOTO 
1110 IFA=S6THENN=8:C=151:C1=140:H=1:G0T0 
1120 IFA=S7THENN=9:C=153:C]=120:H=@:GOTO 


1130 IFA=45THENN=]]:C=158:C1=120:H=2 *G0T 
01150 

1142 IFA=S]1THENN=12:C=16]:C1=14@:H=]:GOT 
01159 

1141 IFA=]3ANDFi=1THENC=G:607T02000 

1342 iFA=13THENCLS :RETURN 

1143 IFA=32THENQ=0+]:Dx(0)=13:Ex(0Q)=@:60 
101144 

1144 IFQ=*256THENC=0Q:60T02082 

1145 G070]6]2 

11508 C=C+S 


115ì Q=9+1:Dx(0)=N:£2(0)=0:60SUB1152:605 
UB116@:6G0T01182 

1152 IFHI=1THENH1I=QELSEH1=1] 

1155 CURSETA1:B1l,H1:CIRCLE1,H]:RETURN 
1160 CURSETC;C1,0:CIRCLE1;H:Al=C:B1=C1:H 
I=H 

1172 MUSIC1,0,N;@ 

1188 PLAY1,02,],2000:RETURN 

1182 IFQ=256THENC=0:G07020800 


automaticamente. 


ll suo uso è quasi sempre ristretto a coprire il 
ruolo di accompagnamento, mentre il motivo 
principale viene eseguito ancora (per fortuna! 


n.d.r.) manualmente. 


Nel caso specifico, i dati forniti al vostro ORIC 
| non sono che valori da assegnare ad 


GOT018]9 

se IFA=SANDO=-1THENO=0:607T0102)0 
eee IFA=SANDO=6THENO=5:60701219 
121@ IFA=BTHENS=S-35ELSES=5S+35 
222 607101010 


RIPRODUZIONE SEQUENZA 


IFQ=@THENQ=1 :6G0T02265 

CLS:C$=" PLAY ”" 
CHR$(128)+CHRs(1513+C$+CHR$(144) 
INTSPC(9S0)8$; 


A 9 
r 
) 
i 
(®)] 
D] 
— 
@ 
(©) 
n 


[FDx (0)=14THENMUSIC],0,N,15:G0T0205 


e=2 IFDa (Q)=13THENA3=2+2:G0T02050 
2e32 dii O=E*(0) 

mese miSIC1,0,N,0 

Des PLAT1:9,1,2000 

mese RAITA3 


T:WAITSB:PLAY9,B,0,0:UAITSA 
IPRINT"N. Steps = “;Q-1:PRINT 
NTSPCCII)"UUoi continuare?"; 


$:IFASO "S "ANDA "N" THEN2089 
="S"THENGOSUB3500 :CLS:60702000 
S:RETURN 


ROUTINE SCELTA MODO 


® #S='Uvoi resistrars(1) o solo suona 


ra( 


3,e5 CURSET(255-(LENC(A$)t6))/2,30,3 
3I 18 FORT=1TOLENCAS) 

22 CHARC(ASC(MID$CAS, T,1)}),9,1 

É 0V6, 2, 3:NEXT 


S:IFASOO “1 
ExT :END 
Ais=' 1“TMHEN3152FLSE3160 


*ANDA$ > "2 THENPRINTC 


3152 
3155 
+CHR$ 
3157 
3162 
3170 
3182 
3206 
3497 
3498 
3499 
3500 
riare 
3525 
3527 
+CHR$ 
3510 
3520 
3530 
35408 
e giu 
3550 
3560 
3562 
3565 
35720 
35723 


ÎNÒ 


gigi 


g 6 6 


istruzioni MUSIC e WAIT che poi il computer 


eseguirà con il suo generatore sonoro. 
La programmazione delle sequenze può 
essere spesso difficoltosa, specialmente per 


chi di solfeggio e teoria musicale ne sa poco, 


C$="RECORD " 
B$=CHRs(128)+CHRSC(] 
(144) 
F1=1:60T03170 
Fi=0:8s=' 
FORT=12T0234STEP6 
CURSETT,32,3:CHAR1272,0,0:NEXT 
RETURN 
REM 
REM RICHIESTA VARIAZIONE TEMPO 
REM 
CLS:PRINT:PRINT:PRINTSPC(8) 
il tempo?"; 
C$* "RECORD 
B$=CHR8(128)+CHRs( 15} 
(144) 
GETAS:IFA$<>"S"ANDA$ © "N“THEN35]12 
IFAS»"S"THEN3540 
S=9 :RETURN 
CLS:PRINT"Premi | 
* per" 
PRINT"variare il tempo," 
PRINT"Premi RETURN per 
WAIT300:A3=2 
CLS :PRINT:PRINT“TEMPO = "2; 
AS=KEYS:]FA$=""THEN3570 
ASASCC(AS):IFAO IBANDA<> I 


51) *CHR$(140)+C8$ 


‘Vuoi va 


)}+CHR$(140)+C$ 


tasti cursore suv 


tornare, "; 


LANDA <> 13TH 


EN3572 


3582 
3602 
3605 
3619 
3615 
3622 
3632 
4997 
498 
4999 


Spee i 
5005 £ 


5210 


IFA=13THENCLS :RETURN 
IFA=]10ANDZ=2THEN3570 

IF@= |10THENZ=2-1 :60703622 
IFa=190THEN3572 

a=#+] 
CLS:PRINT 
60703578 
REM 

REM NOTE MOTIVETT 
REM 


:PRINT'TEMPOR= "2; 


O INIZIALE 
211::13,3:11>,5,3,113133.11li 


»1).33,3,113,5,3,11; 313,11, 
DATAS,3,11,,5,3,11,,8,3,11:113:1), 
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ma il programma può essere un valido aiuto 
per il loro apprendimento. 


5920 DATAS:3,11:,6,3,11;,8:3,11::11::11» 
5239 DATA8,3,10,3,8,3,6,3,5,3,11;,1:3;11 
5940 DATA8:3,19,3,8,3,6,3,5,3,11 


. 


s:133,]] 
595@ DATA3,3,1ì,,8,2:11;,1,3,11;,;11;;18 


) 

5062 DATA3,3,1],,8,2,11,,1,3,11, 

6002 TEXT:CLS 

6005 DOKEH12,48224:PRINT'ORIC- S 
U E NC E R*:CLS 

6018 PAPER3:]INK@ 

6020 PRINT"II tuo ORIC-1 
e ripro-"; 

650932 PRINT'dur e qualsiasi 

uenza di note musicali 

6242 PRINT:PRINT"Per +are questo devi co 

noscere almeno un po’ di te 

oria musi"; 

6850 PRINT'cale ed avere un minimo di ?o 
recchio?," 

6260 PRINT:PRINT 

6065 PRINT"I tasti di cui 

sono:" 

6070 PLOT1,11," 

nza" 

6280 PLOTI,13,'?SPACE-BAR'=Pausa 

6050 FLOT1I,15,"?P*=*AL lunga i’ultima nota 
suonata 

6190 PLOT],]7, 


m 
QD 


puo? registrare 


melodia o seq 


avrai bisogno 


PA? =Rinizializza la seque 


"’ENTER?=Cambia modo 


6]10 PLOTi,19,"?*CURSORE-SIN,’=Scende di 

citava 

6122 PLOTI,21;"*CURSORE-DES,*=Sale di ot 
tava 

6152 FORT=@T013:PRINT :NEXT 

65152 PRINT'Insieme ad essi ci sono i tas 
ti per lenote indicati sott 

LREST 


61722 PRINT 
6182 GETA$ 
6192 RETURN 


"al disegno della tastiera, "; 


n Z VA 


IL 1% DISCO-MIX 
DI PROGRAMMI PER 
IL TUO: 


TEXNS TI 99/4N 
Z%X SPECTRUM 


DISCO LIST: NOTE 


Prima di tutto tenere presente che NON SI TRATTA 
DI UN FLOPPY DISK, quindi non cercare di utilizzarlo 
tramite DISK-DRIVE. 

Solo per la versione ZX SPECTRUM è possibile 
caricare il programma direttamente da giradischi, 
secondo la seguente procedura: 

— collegare il cavetto fra la presa per cuffia del 
giradischi e la presa EAR del computer; 

— regolare il volume di ascolto sul valore medio ed 
escludere, se possibile, le casse acustiche. 

In tutti gli altri casi, riversare il programma da disco 
a nastro. 

Nel caso si possieda un impianto HI-FI, regolare il 
volume di registrazione su un valore medio (VUmeter 
= MAX. +1 dB). 

Provare quindi a caricare il programma. 

Nel caso si incontrassero delle difficoltà, registrare 
nuovamente il programma più volte anche a livelli 
diversi. 

Può essere utile, in questo caso, provare ad 
ascoltare il «suono» di un altro programma 
preregistrato e cercare quindi di ottenere le stesse 
tonalità con il programma su disco. 


EGGSCAPE - LA FUGA DELL’UOVO 


Un simpatico uovo di nome BERT deve essere 
guidato attraverso un labirinto buio per raggiungere 
l’entrata di un tunnel segreto. 

Molti i pericoli che minacciano il povero BERT: 
JELLY il mostro gelatinoso a caccia di cibo, le 
GUARDIE DELLA MORTE ed i loro fidi PIPISTRELLI. 
Il gioco si svolge su due schermi e diversi livelli di 
difficoltà. 

Ulteriori istruzioni sono contenute nel programma 
per i diversi modelli di computer. 


— 1? PARTE - VIC-20 3 =» 
— 2% PARTE - TEXAS TI 99/4A DPR Pira: 
— 3% PARTE - ZX SPECTRUM IL PRIMO DISCO 


sii 


DI PROGRAMMI INCISC 


50 


" 


A 33 GIRI PER IL TUO HOME COMPUTER 
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Black Jack 


Un semplice programma per gli utenti del 


ILDAD BLACK 


IRIST 

10 HUME : VITAR 4 

20 HTAB S: INVERSE : PRINT "=========== 
=e=e=eoass===e==e=e==_==": NORMAL 

25 FRINT : FRINT TAB( 10): =BL ACK 
JACK 

30 PRINT : INVERSE : HTAB 5: PRINT "=== 
-===eoeme—coec==e===e===e===oss="’a NORMAL 
50 POKE 800,32: POKE 201,67: FOKE 802,2 


POKE 803,141: 
POKE 806,96 


POKE 804,39: POKE 505, 


60 GOSUB 3200 

70. FOKE 232,145: FOKE 233,29 

1000 HOME : VTAB 3: HTAB 5: INVERSE : FP 
RINT "BLACEJACE": NORMAL 

105 GOSUB 3050 

110 PRINT : FRINT TABI 10) "MICROFROFES 
SOR r* MPFE-II" 

120 PRINT : PRINT : PRINT "DIGITEK COMP 
UTER - BAGNOLO IN PIANCRE) " 

130 FOR I = 1 TO 39: PRINT "rq"5: NEXT 
135 PRINT : FRINT TABS i2ìs "COMANDI PE 
R_ GIOCARE" 

140 PRINT : FRINT TAB 14) "RESTO" 

150 PRINT TAB: 14) "CARTA" 

160 PRINT TAB: 14) "LASCIO (1/2) “ 

170 PRINT TAB: 14) "DOPPIO" 

180 FRINT TaB( 14)"SPEZZO (SFLIT)*” 

190 FRINT TAB( 14) "SALVARSI (i/2)° 

200 PRINT : FRINT “LE PUNTATE SARANNO C 
OMPRESE FRA $2...$50" 

210 PRINT “FER SELEZIONARE I COMANDI US 
[a] LE INIZIALI . *<RETURN:> 
PER CONFERMA" 

Z20 PRINT 

230 HTAB è: FRINT “NUMERO DI GIOCATORI 
(1-5) = "sr: INPUT ""5N%$ 

240 N= VAL (N$):DN=N+ 1 

250 IF N < 1 GR N > 5 THEN 2350 

260 DIM V(12,12),D{207)}),5C12),NC(12) ,B( 


12) ,BX(12) 
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DIGITEK MPF II. 


270 BL39%$ =" 

280 BL = 4:WH = 7:RD = 5 

281 BU = 6 

290. HOME : VTAB 10: FRINT " UNA MESCO 
LATA ALLE CARTE....." 

295 GOSUB 2500 

300. HGR : SCALE= i: ROT= O: FOKE 34,20: 


GO0SUB 2350: GOTO 1030 


320 IF M > 206 THEN G0SUB 2560 

350 M = M + 1:NlUM = D{M} 

240 SU = INT (NUM / 100}:va = NUM — i00 
* SU 

350 RETURN : REM 

Z70 S = 0:51 = G1:5S7 = O:ACE = 0 

380 FOR J = i TO NC(I):VA = V(I,J}: G0S 

LB 420: NEXT 

390 S(1) = S 

400 RETURN :s REM 

4200 IF VA > i0 THEN VA = 10 

430 IF VA = 1 THEN ACE = 1 

440 51 = S1 + VA 

450 IF ACE = 1 THEN 52 = S1 + 10 

4350 S = Si: IF S2 > 0 AND S2 < 22 THEN S 
= S2 

470 RETURN : REM 

45710 IF SFLIT = 1 THEN Y = 20 + 10 * Jd: 
GO0TO0 DZ0 

SGO IF SPLIT = 2 THEN Y = 100 + 10 * JJ 
a GOITO 520 

SiIO Y = 12 * GI + dd) 

520 X = 40 * ID 

SZO  GOSUB 2300 

540 RETURN : REM 

So) GOSUB 860 

5700 IN DPT GOITO 830,840, 1660 

590 G0SUB 320:BX(I) = BX(I) * 2 

690. GOSUB 490: GOSUB 720 

510 IF 5 < 22 THEN S30 

620 RETURN : REM 


\d 


a AL 
== ___” (| 


OOO 


540 GOSUB 320 

550 IF SFLIT = 1 THEN Y = 20 + 100 * JJ 
: SOTO 680 

563 IF SPLIT = 2 THEN Y = 100 + 10 * JJ 
: GOTO 589 

570 Y = 12 & (J + JJ) 

450 X = 40 * ID: IF SPLIT < > O THEN JJ 
= JJ +1 

530 GOSUB 2300: GOSUB 720 

700 IF S > 21 THEN RETURN =: REM 

710 G0T0 560 

720 NCCI) = NOCI) + 1 

730 V{I,NC(1)) = VA 

46 GUSUB 370 

759 IF S < 22 THEN 780 

750 VTAB 22: HTAB 6 * ID: PRINT "FUORI" 
762 IF I = DN THEN SD = 5: GOSUB 3000: 

SOTO 770 

765 SD = 1: GOSUB 3000 

770 GOSUB 790 

780 RETURN : REM 

790 IF NCCI) < > 0 THEN B10 

800 RETURN : REM 

810 NCCI) = NOCI) — 1 

820 GOTO 790 

830 VTAB 22: HTAB 6 * ID: PRINT " “"sS(I 
rs» Ò 

840 RETURN : REM 

860 VTAB 22: HTAB 6 * ID 

865 CALL 800:K = PEEK (807):K$ = CHR$ 
CK) 

870 IF ASC (K$) = 210 THEN OPT = 1: PR 
INT "RESTO " 

871 IF ASC (K$) = 195 THEN OPT = 2: PR 
INT "CARTA " 

872 IF ASC (K$) = 204 THEN OPT = 3: PR 
INT "LASCIO" 

873 IF ASC (K$) = 196 THEN OPT = 4: PR 
INT "DOPPIO" 

874 IF ASC (K$) = 211 THEN OPT = 5: PR 
INT "SPEZZO" 

940 CALL 800:K = PEEK (807): IFK < > 
141 THEN 860 

950 POKE 807,0 

960 VTAB 24: HTAB i: PRINT BL39$; 

270 IF OPT = 3 AND NCC(I) > 2 THEN VTAB 
24: HTAB i: PRINT "NON PUDI RINUNCIARE 
(HAI CHIESTO CARTA)"; CHR$ (7);: GOTO 86 

980 IF OPT = 4 AND NC(I) > 2 THEN VTAB 
24: HTAB 1: PRINT "NON PUOI RADOPP. (HAI 
GIA'CHIESTO CARTA)"; CHR$ (7);: GOTO 86 

990 IF OPT = 5 AND NCC(I) > 2 THEN VTAB 
24: HTAB 5: PRINT "SOLO COPPIE PARI PUO 
I SFEZZARE"i CHR$ (7);: GOTO 860 

1000 IF OPT-= 5 AND SPLIT > O THEN VTA 

B 24: HTAB 4: PRINT "NON E” CONCESSA UN” 

ALTRA SPEZZATA": CHR$ (7);: GOTO 860 


1010 


RETURN : REM 


1030 FOR I = i TO DN:TC(I) = 0: NEXT 
1040 IF 2 » DN + M > 207 THEN SGOSUB 25 

60 

1050 FOR I = 1 TO N:W(I) = O: NEXT 

1060 FOR I = 1 TO 12:B(I) = 0:BX(I) = 0 

:S(I) = O:NC(I) = 6: NEXT I 

1070 I = I + DN 

1090 VTAB 21: HTAB i: PRINT "PUNT." 

1090 VTAB 22: PRINT "SEL." 

1100 VTAB 23: PRINT "TOT.="3: FORI = 1 
TO DN: HTAB 6 * I + i: PRINT T(I)s: NEX 

T 

1110 FOR I = 1 TO N 

1120 VTAB 2i: HTAB6* 1 +1 

1130 INPUT “":A$ 

1135 B= VAL (A$) 

1137 B(I) = E 

1150 IF B< 2 OR B > 50 THEN VTAB 21: 

HTAB 6 # I + i: PRINT " ": GOTO 1120 

1160 BX(I) = BCI) 

1170 REM 

1180 NEXT I 

1190 COLOR= BU: FOR S= 0 TO 39 

1192 VLIN 0,39 AT S 

1194 VTAB ii: PRINT CHR$ (34);"C"; CHR 

$ (34) : 

1195 FRINT : PRINT CHR$ (34);"R"3 CHR$ 
(34): PRINT : PRINT  CHR$ (34)5"L"3 CHR 

$ (34): PRINT : PRINT  CHR$ (34); "D"; CH 

R$ (34) 

1198 PRINT : PRINT CHR$ (34);"S";3 CHR$ 
(34) 

1200 NEXT 

1210 FOR J = 1 TO 2: FOR I = 1 TO DN:ID 
1220 GOSUB 320:V(I,J) = VA:DD(I,J) = D( 

Mm) 

1230 IF J= 1 OR I< = N THEN GOSUB 4 

90 

1240 NEXT I: NEXT J 

1250 HCOLOR= BL:X = 40 * DN + i:Y = 24 
1260 FOR JY = O TO 28 STEP 2: HPLOT X,Y 
+ IY TO X + 28,Y + JY: NEXT 

1270 HCOLOR= RD: FOR JY = 1 TO 29 STEP 

2: HPLOT X,Y + JY TO X + 28,Y + JY: NEXT 
1280 FOR I = 1 TO DN:NCC(I) = 2: NEXT 

1290 IF V(DN, 1) > 1 THEN 1440 

1310 VTAB 23: HTAB i: PRINT BL39%; 

1320 VTAB 24: HTAB i: PRINT " TI VUOI S 

ALVARE (1/2 DELLA PUNTATA) ?": 

1330 VTAB 23: HTAB i: PRINT "SALV. "5 
1340 FOR I = 1 TO N 

1350 VTAB 23: HAB6&* I+1 

1360 INPUT ""51$ 

1362 IF LEFT$ (I$,1) = "N" THEN PRINT 
"NO"3:B(I) = 0: GOTO 1380 

1370 PRINT "SI"3:B(I) = BX(I) / 2 

1380 CALL 800:K = PEEK (807): IF K < 

> 141 THEN 1350 

1390 REM 

1400 VTAB i: HTAB 6 * I + 1: PRINT BC(I) 
Di Di 

1410 WCI) = BC(I) * (3 * ((V(DN,2) > = 1 

0)) — 1) 


1420 NEXT I 


1430 IF V(DN,i) = 1 AND V(DN,2) > 9 THE 
N 1460 

1440 IF V(DN,2) = 1 AND V(DN,1) > 9 THE 
N 1460 

1450 G0T0 iSsio 

1460 X = 40 * DN:Y = 24: GOSUB 2300 

1470 VTAB 24: HTAB i: FRINT BL39$; 

1480  VTAB 24: HTAB 12: INVERSE : PRINT 
"FATTO BLACKJACK"3: NORMAL 

1485 SD = 3: GOSUB 3000: GOSUB 3000 

14590. FOR I = i TO DN: GOSUB 370: NEXT 


1500. G0TO 2090 


1530 FOR I = 1 TO N:ID = I 

1520 J= JJ + 1:JJ = O0:SPLIT = 0 

1530  GOSUB 860 

1540 ON OPT GOTO 1560, 1700, 1560, 1640, 17 
20 

1560  GOSUB 370 

1570 IF SC) <« > Z1 THEN 1620 

1580  VTAB 22: HTAB 6 * I: INVERSE =: PRI 
NT “"BLKJK"3: NORMAL 

1585 SD = 3: GOSLlIB 3000 


1590 WI) = WI) + 1,5 * BXC(I) 
1600 BX (I) = 0 
1610 GOSUE 790: 
1620. GOSUB 830: GOTO 1950 
1640. GOSUB 370: GOSUB 590: 
1650 REM SURRENDER ROUTINE 


GO0TO 1950 


GOTO 1950 


15650 BX(I) = 
1&70 SCI) = O: 
: REM 
1650 
1700 
1720 


0.5 * BX(I) 
IF SPLIT > O THEN RETURN 


SOTO 1950 
BOSUB 370: GOSUB 640: GOTO 1950 

IF V{I,1) = V(I,2) THEN 1760 

1730 VTAB 24: HTAB 1: PRINT BL39%; 

1740 VTAB 24: HTAB 8: PRINT "DIMEZZAMEN 
TO NON CONCESSO! ": CHR% (7); 

1750 GO0T0 1530 

1760 X = 40 * I:Y = 0: GOSUB 2470 
1770 X = 40 * I:Y = 0: GOSUB 2470 
1780 NUM = DD{(I,1): GOSUB 340: GOSUB 
(3 

1790 Y = 
SUB 2300 
1800 IN = 
I,2):BX:IN) = 


PIATE 
Lo 


B0:NUM = DD(I,2): GOSUB 340: 60 
I + DN=NCCIN) = 2:VC(IN,i) = V{ 


BXtI) 


1810 Y = 10: GOSUB 320: GOSUB 2300 

1820 V{I,Z} = VA: GO0SUB 370 

1830 Y = 90: GOSUB 320: GOSUB 2300 

1840 I = IN:V(I,2) = VA: GOSUB 370 

1850 IF V(I,1) = 1 AND V(IN,1) = 1 THEN 
1930 

1860 I = IN - DN 

ig70 VTAB 24: HTAB 1: PRINT BL39%$: 

1830 VTAB 24: HTAB 15: PRINT "MANO #1"; 
1890 SFLIT = 1:JJ = 0: GOSUB 560 

1900 I = I +-DN 

1910 VTAB 24: HTAB 15: INVERSE =: PRINT 
"MANO #2"3: NORMAL 

1920 SPLIT = 2:JJ = O: GOSUB 560 

19350 I = I - DN 

1940 SPLIT = 0O:JJ = 0 

1950 NEXT I 

1960 FOR I = 1 TON 

1970. IF NC©SI) > O OR NCCI + DN) > O THE 

N ZO10 

1980 NEXT I 

1950. GOTO 2090 

ZO010 I = DM:IiD = DN:J = 3 

2020 NUM = DD(DN,2): GOSUB 340: GOSUB 37 

16) 

ZO0350 X = 40 * DN:Y = 24: GOSUB 2300 

2040 IF S(DN) > 164 THEN 20760 

2050. GO0SUB 320: GOSUB 4590: GOSUB 720 

2060 SEDN) = S 

7070 IF S(IDN) < 22 AND SIDN} 17 THEN 

ZOS5SO 

2080 IF S(DN) < 22 THEN VTAR 22: HTAB 

6 * ID + i: PRINT S(IDN): 

2090 IF S(DN) = 0 OR SEDN) > 21 THEN S( 

DN) = 1 

2110 VTAB 23: HTAB 1: PRINT BL37%;: VTA 

B 23: HTAB i: PRINT “TOT = “; 

2120. VTAB 21: HTAB 1: PRINT EL39%$:: VTA 

B 23: HTAB 1: PRINT "TOTALE"? 

2150 FOR I= i TON 

2140 IF SC(I) > 21 THEN SCI) = 0 

2150 IF SCI + DN) > 21 THEN S(I + DIN) = 
(0: 

Z1I69 WI) = WC(I) + BX(I} * SGN (SC(I} — 

SEDNI} + BXC(I + DIN) * SGN (SitI + DN) — 

S (DN) ) 

2170 T£I:ì = T{I) + WII) 

2180 VTAB 21: HTAB 6 * I + i: IF WII) > 
O THEN INVERSE 

2190. PRINT WC(I}t: NORMAL 

2193 IF W{IH) > 0 THEN SD = 7 

2194 IF WC(I} < O THEN 5D = 1 

2195 IF #{(I} = O THEN SD = 4 

ZiFo @BGO0SUB 3000 

€209 VTAB 23: HTAB 6 * IT + 1: PRINT TI 
x3 

2ZZ19 BSOSUB 770 

2220 T(DN) = T(DN} — WI) 

2230 I = I + DN: GOSUB 790:1I = I - DIN 

2240 NEXT I 

2259 VTAB 23: HTAB 4 * DN + 1: PRINT T( 

DAN) 3 

2260 VTAB 24: HTAB 1: PRINT "FREMI RETU 


EN FER UN’ALTRA MANO": 


2270 GET T$: IF ASC (T£) < 


2550  BOSUB 790: GOSUB 


235000 HCGLOR= WH: 


Z2IS0: 


FOR JY = 0 


TX,Y + JY TO X + 29,Y + JY: 


2510 HCOLOR= BL: 


DRAW 


VA AT 


DSAW VA AT X + 20,Y + 271: 


AT X + 6.Y + 22 


> 13 THEN 


G0TO 1040 
TO 29: HFLO 
NEXT 


X4 iva? 


DRAW SU + 13 


2320 HCOLOR= BL: DRAW VA AT X + Za +7 
DRAW VA AT X + Z1.,Y + 27: 


ST X + I, +£ 22 


2350 IF SU > 2 THEN HCOLOR= 
+ 13 AT X + 4,Y # 


2340 RETURN : REM 


2350 HOME : COLOR= 


2354 VLIN 0,59 AT 
2355 HTAB 12 
255&  VTAB 14: INV 


Da 2 A0G60 "": NORMA 


2360 HCOLOR= BL 


Gr 


A 
La 


DRAW SU + 135 


RD: DRAW S 


BU: FOR S= GTO 


NEXT 


INT “PUNTARE 


2270 HPLOT SA4,76 TG FO,7A6 TO 90,80 10 9 


06,84 

?o HPLCT 110,84 
116,84 TO 110,84 
:eb0 HPLOT 120,534 
124,84 


8 
380 HPLOT 106,76 
< 

i 

9 


Un 


OMONIGONDONDQDQNON 
da 
AL a 9 MM ON MN CI Lin 
© I» 
(i 
N 
Ch 
sl 
Q 


410 HPLOT 132,84 
136,75 TO 136,84 


370 HPLOT 150,84 T 


da 


HFPLDT ié0,. 768 
3809 TO 160,84 
350 HFLOT 170,76 

170,80 TO 170,84 
250 HPLOT 180,76 


48,80 TO 144,80 
4 


PITT PH DID) 


LÉ RETUEN 1: REM 
2472 HCGLOR= BU: 
Tx © SI 4 
24509  RETUFN : REM 
2500 M= © 
2510 FOR K = 1 TO 
M>) = i1G0 * E + LsmM 


TO 34,84 TO 90,24 


TO 


TO 


FOS 


100, 76 


110,76 


120,76 
124,79 


132,76 
136,79 


144,84 
144,76 
154,76 
154,84 
164,76 
164,84 
174,76 


JY =D 


FOR L 
& PI 


2520 IF M < 208 THEN 2510 
2530 FOR K = 207 TO 0 STEF 


{ RND {1) * 208) 
DK) = T: NEXT 
2540 M= - i 

2550 RETURN : REM 


Sa A 


2550  VTAR 24: HIAB li: 

2570 VTAB 24: HTAB 15: 
"MAZZO UO0VO"3: GOSUB 2500 
2580 NORMAL : VTAB 24: HTAEB 


— 8: 
DM) :D(M) = 


TO 100,£4 T 
TO 116,76 T 


TO 120,79 T 
TO 128,76 T 


TO 132,79 T 
TO 140,76 T 


TO 144,80 T 
TO 150,76 

TO 154,90 T 
TO 164,20 T 


TO 174,84 T 


150,84: HPLOT 178,50 TO 174,80 
55 PLOT 186,76 TO 186,81: 


HPLAT 186, 


TO 54: HPLO 


NEXT 


i TO 13:D( 


NEXT : NEXT 


= IN 
DK): 


PRINT BL.39%; 
INVERSE : PRINT 


15: PRINT" 


sip 
= *®* *€”_( 


4 


7 


eee 


ma 


2590 RETURN : REM 


30009. FOR d = i TO NN{SD} 
3010 IF FO(J,5D) > 255 THEN FG{J,SD) = 


O POKE 768,DU(J,SD): POKE 769,F0(J,5 
ALL 770 

O NEXT J 

5 FOR PAUSE = O TO 200: NEXT PAUSE 
3040 RETURN : REM 

3050 FOR I = 0 TO 25: READ J: POKE 770 
+ I,J: NEXT I 

3060 DATA 172,1,3,174,1,3,169,4,22, 168 


Len] 
CA Ade Nn 
[se] 


3O70 DATA 252,173,48,192,232,208,253,13 

5,208, 239 

3080 DATA 206,0,3,208, 231,76 

3090 DIM F(9,5),DU(9,5) 

3110 NN(1) = Z:iNN(2) = Z:NNC(3) = 8sNN(4) 
= t:NN(5) = 5 

3120 FOR K = 1 TO 5: FOR I = 1 TO NNEEK) 


3130 READ FGfI,K) DUC(I,K} 

3140 NEXT I: NEXT K 

3150 DATA 144,2,80,2 

3160 DATA 200,2,219,2, 299,4 

ZIZO DATA 211,1,211,1,211,1,229,2,211,1 
i 22924 214,1,229,2 

3180 DATA 172,4 

3185 DATA 172,1,164,1,156,1,150,1,144,1 
135, ta 126,1,3174406,2 

3190 RETURN 

3200 POKE 7569,18: POKE 7570,0: POKE 75 

71,38: POKE 7572,0: POKE 7573,50: FOKE 7 

574,0: FOKE 7575,65: POKE 7576,0: POKE 7 

577,2: 

3201 POKE 7578,0: POKE 7579,859: POKE 75 

BO,0: POKE 7581,101: POKE 7582,0: POKE 7 

583,114: FOKE 7584,0: POKE 7585,1235: POK 

E 7586,0: 

3202 FOKE 7587,136: FOKE 7588,0: FOKE 7 

589,148: FOKE 7590,0: POKE 7571,164: POK 

E 7592,0: FOKE 7593,173: POKE 7594,0: FD 

KE 7595,186: 

3203 FOKE 7596,0: POKE 7597,199: POKE 7 

598,0: POKE 7599,50: FOKE 7600,1: FOKE 7 

601,148: FOKE 7602,1: FOKE 7603,241: FOK 

E 7604, 1: 

3204 POKE 7605,95: POKE 7606,2: POKE 76 

07,33: FOKE 7608,36: POKE 7409,100: POKE 
7610,12: POKE 7611,14: POKE 7612,14; PO 

KE 7613,54: 

3205 POKE 7614,63: FOKE 7615, 119: POKE 

7616,9: POKE 7617,46: POKE 7618,0: POKE 

7619,41: POKE 7620,45: POKE 7621,45: POK 

E,7622,216: 

3206 FPOKE 7623,219: FPOKE 7624,16: POKE 

7625,12: FOKE 7624,12: POKE 7627,45: POK 

E 7628,32: POKE 7629, 28: POKE 7630,63: P 

OKE 7631,230: 

3207 POKE 7632,7: POKE 7633,0: FOKE 763 

4,1: POKE 7635; 148: POKE 7636,45: POKE 7 

537,5: POKE 7638,32: POKE 7639,28: POKE 

7640, 103: 


POKE 7 
POKE 
POKEE 


3208 POKE 7641,12: POKE 7642,60: 
643,63: POKE 7644,63: POKE 7645,0: 
7646,73: POKE 7647,33: POKE 7648,5: 
7649, 56: 
3209 POKE 7650,63: POKE 7651,39: FOKE 7 
552,12: POKE 7653,12: POKE 7654,12: POKE 
7655,54: PDKE 7656,46: POKE 7657,0: POK 
E 7658,1: 
3210 POKE 7659,112: 
7661,5: POKE 7662, 32: 
E 7664,63: POKE 7665,39: 
OKE 7667,45: 


POKE 
POK 
P 


POKE 7660,45: 
POKE 7663,228: 
POKE 70666,44: 


STil 
70,9: 
PS DL3 


7676,214: 


POKE 7668, 45: 
POKE 7671,45: 
FOKXE 76474,28: 


POKE 7669,0: 
POKE 7672,5: 
FOKE 7675,63: 


FOKE 76 
FOKE 76 
POKE 


POKE 
POKE 
PO 


3212 


F679,122 


FOKE 7677,36: POKE 7678, 100: 
POKE 7680,45: POKE 7681,5: 
7682,0: FOKE 7683,33: POKE 7624,100: 
KE 7685, 12: 
3213 POKE 7686,12: FOKE 7687,228: 
7688,58: POKE 7689,613: POKE 7690,7: 
7691,0: POKE 7692,9: POKE 7693,45: 
76594, 12: 
3214 FOKE 7695,228: POKE 7696,63: POKE 
7697,214: POKE 7698,36: FOKE 7699,32: PO 
KE 7700, 12: POKE 7701,45: POKE 7702,14: 
POKE 7703,54: 
3215 POKE 7704,0: POKE 7705,41: 
06,101: POKE 7707,12: POKE 7708, 60: 
7709,63: POKE 7710,7: POKE 7711,32: 
È 2742-13: 
3216 POKE 7713,45: POKE 7714,21: 
715,46: FOKE 7716,0: POKE 7717,33: 
7718,36: POKE 7719,36: POKE 7720,108: 
KE 7721,9: 
3217 POKE 7722,45: POKE 7723,14: 
724,54: PFOKE 7725,54: POKE 7726,30: 
7727,63: POKE 7728,7: FOKE 7729,32: 
E 7730, 36: 
3218 POKE 7731,36: 
33,1: POKE 7734, 112: 
7736,5: POKE 7737,32: 
7739,36: 
3219 POKE 7740,4: 
2,9: POKE 7743,109: 
745,223: POKE 7746,108: 
KE 7748,36: 
3220 POKE 7749,228: POKE 7750,95: 
7751,131: FOKE 7752,54: POKE 7753,7: 
E 7754,0: FOKE 7755,33: POKE 7756,36: 
KE 7757,36: 


POKE 
FOKE 
POKE 


POKE 77 
POKE 
POK 


FOKE 7 
POKE 
PO 


POKE 7 
POKE 
POK 


POKE 7732,0: POKE 77 
POKE 7735,45: POKE 
FOKE 7738,36: POKE 


POKE 7741,0: POKE 774 
POKE 7744,28: FOKE 7 
FOKE 7747,135: PO 


POKE 
POK 
PO 


56 


3221 POKE 7758,108: FOKE 7759,9: POKE 7 
760,30: POKE 7761, 30: FOKE 7762,30: POKE 
7763,14: FOKE 7764,14: FOKE 7765,14: FO 
KE 7766,5: 
3222 POKE 7767,0: FOKE 7768,73: POKE 77 
67,9: POKE 7770,45: POKE 7771,45: POKE 7 
772,45: POKE 7773,229: POKE 7774,59: POK 
E 7775; 63: 
3223 POKE 7776,12: POKE 7777,109: POKE 
7778,73: POKE 7779,56: POKE 7780,255: PO 
KE 7781,59: FOKE 7782,223: POKE 7783,63: 
POKE 7784,7: 
3224 @PFOKE 7785,40: POKE 7786,45: POKE 7 
787,109: POKE 7788,109: POKE 7789,45: PO 
KE 7790,45: POKE 7791,5: POKE 7792,56: P 
OKE 7793,63: 
3225 POKE 7794,653: POKE 7795,63: POKE 7 
796,63: FOKE 7797,63: POKE 7798,63: POKE 
7799,63: POKE 7800,7: POKE 7801,40: POK 
E 7802,45: 
3226 POKE 7803,45: POKE 7804, 45: 
905,45: FOKE 7806,45: POKE 7807,45: 
7808, 45: POKE 7807,45: FPOKE 7810,60: 
KE 7811, 065: 
>227  POKE 7812,655: POKE 7813,63: FOKE 7 
814,653: FOKE 7815,;635: POKE 7816,63: FOKE 
7817,63: FOKE 7816,63: POKE 7819,44: PO 
KE 782Z20,45: 
3228 POEE 7871,45: 
p235, 45: POKE 7624,45: 
7826, 45: FPOKE 7827,45: 
KE 78Z7,43: 
3229 POKE 7830,063: 
B32,63: FOKE 7B33,635: 
7835,63: POKE 7836,39: 
KE 78358,45: 
3230 POKE 78359,45: 
S84i,45: FPOKE 7842,45: FOKE 7843,45: 
7844, 229: POKE 7645,63: FOKE 7846,63: 
DEE 7947,63: 
3231 POKE 7648,63: FOKE 78249,63: POKE 7 
850,63: POKE 7851, 103: FOKE 7852,45: POK 
POKE 7254,45: POKE 7855,45: F 
NKkE 7855,45: 


FOKE 7 
POKE 
PO 


POKE 7822,45: FOKE 7 
FOKE 7825,45: POKE 
FOKE 7828,26: PO 


POKE 7 
FOKE 
FO 


PDKE 7831,63: 
POKE 7834, 63: 
POKE 7837,45: 


POKE 7 
POKE 
P 


POKE 7840,45: 


E 7853,45: 


POKE 7858,63: FOKE 
FOKE 7861,63: FOK 
POKEE 7864,45: 


POR 


2,105: 


[i alia) 


POKE 7866, 229: 
FOKE 7869, 103: 
225: FOKE 7872.,39: 


dla 


FOKE 7867,63: POKE 
FOKE 7870,45: FO 
POKE 7873,45: 


to NU 


Sodi 
KE 7871, 
POKE 7874,0: 
POKE 7875,73: 
77,45: FOKE 7878,45: 
7820, 229: PDKE 7881,59: 
KE 7883,12: 
3235 POKE 7884,109: 
7886, 56: POKE 7897, 255: 
KE 7889,223: POKE 7890,63: 
FOKE 7292, 40: 
3236 POKE 7893,45: 
7895, 109: FOKE 7896,45: 
KE 7898,5: POKE 7899,56: 
OKE 7501,63: 

POKE 7902,63: 


ar 
LI 


POKE 78 
POKE 
FO 


POKE 7276,9: 
POKE 79879, 45: 
FOKE 7882,63: 


POKE 7885,735: POKE 
FOKE 7888,59: PO 
POKE 7891,7: 


FOKE 
PO 
F 


POKE 7894,109: 
FOKE 7897,45: 
POKE 7900,63: 


FOGKE 7903,63: POKE 7 


704,63: POKE 7505,63: POKE 7906,63: POKE 
7907,7: POKE 7908,40: POKE 7909,45: POK 

E 7910,45: 

3238 FOKE 7911,45: 


313,45: 


FOKE 7915,45: POKE 7 
POKS 7514,45: 


LE 7915,63: 
3239 POKE 7920,63: FOKE 7921,63: POKE 7 


22,633: POKE 7923,63 


: POKE 7924,63: POKE 
79T5,63: FOKE 7926,44: 
E 7928,45: 
240 FOKE 7929,45: FOKE 7920,45: POKE 7 
321,451: FOKE. 7532, 45: POKE 7933,45: POKE 
7934,45: POKE 7935,28: POKE 7936,63: PO 
FE 7937.6231: 
3741 POKE 7938,63: FOKE 7539,63: FOKE 7 
740,63: FOKE 7541,53: POKE 7942,63: FOKE 
7943, 103: PDKE 7944,41: POKE 7945,109: 
FOKE 7946,45: 
3242 FOKE 7947,109: FOKE 7948,45: POKE 
7949, 220: POKE 7950,27: FOKE 7951,63: FO 
KE 7952,255: FOKE 7953,8: POKE 7954,45: 


Podal go 


POKE 7927,45: PO 


FOKE 7955,45: 
3243 POKE 7556,45: POKE 7957,56: 
-58, 653: FOKE 7959,63: POKE 7960,63: 
7361,44: POKE 7962,45: FOKE 7963,45: 


POKE 7 
FOKE 
FO 


:E 7564,45: 

2244 POKE 7765,28: POKE 7966,63: POKE 7 
757,63: FOKE 7968,191: POKE 7969,45: POK 
E 7570,229: FOKE 7971,63: POKE 7972,0: P 
DE 797373: 


2245 POKE 7974,73: POKE 7975,5: POKE 79 
76,37: FOKE 7977,Z55: POKE 7978,40: POKE 
7979,45: POKE 798045: POKE 7981,60: PO 
E 7982,6%: 


3246 FOKE 7983,63: POKE 7934,31: POKE 7 
785,40: POKE 7984,45: FOKE 7987,45: POKE 
7398, 45: FOKE 7989,45: POKE 7990,60: FO 

KE 7991,63: 

35247 FOKE 7992,63: 

974,63: FOKE 79F5,3i: 

E 7977,45: POKE 7992,4: 

OE 2000,45: 

21248 FDOKE 8001,45: FPOKE 2002,45: POKE 8 

0035, 37: PDOKE 8004,63: FOKE 8005,63: POKE 
20046, 63: POKE 8007,653: POKE 8008,63: FO 
KE 8009,63: 

| 3249 POKE 8010,255: POKE 8011,40: POKE 

©017,:45: POKE 8013,45: FOKE 8014,45: POK 

E 5015, 45: FOKE 8016,45: POKE 8017,45: P° 

Oa 8019, 45: 

2250 FOEE 8019,45: 

021,635: POKE 8027,63: 

024,63: FOKE 8025,63: 

KE 9027,63: 

325 FOKE 8028,63: POKE 8029,7à: 

050,45: FOKE 8031,45: POKE 86032,45: 
80.353,45: POKE 8034,45: FOKE 8035,45: 


KE 8036,37: 


POKE 7993,63: POKE 7 
POKE 7996,200: POK 
POKE 7999,45: P 


POKE 8020,60: 
POKE 8023,63: 
FDKE B076,63: 


POKE 8 
POEE 
PO 


POKE 8 
POKE 
FO 


3252 FOKE 8037,63: POKE 8038,63: FOKE 8 
019,63: POKE 8040,63: POKE 8041,63: POKE 


047,635: POKE 8043, 103: POKE 8044,41: P 
UE 3045,45: 


FOKE 8046,45: POKE 8047,45: 
FOKE 8049,60: POKE 8050,63: 


nc 
ment 


548,45: 


POKE 8 
POKE 


57 


4 


s02006 


po GT 
7 


8051653: FOKE SO052,653: 
KE 8054,76: 

3254  POKE B055,45: POKE 8056,45: POKE 8 
057,45: FOKEE 805,24: POKE 8055,63: POKE 
8060, 63: FOKE 8061,103: POKE 6062,41: P 
OKE 8063,40: 

3255  POKE 8064,7: POKE 8065,0: POKE 806 
6375: FPOKE 8087,73: POKE 8068,9: POKE BO 
67,37: POKE 80970,255: FOKE 8071,40: POKE 
3072,45: 

3256  POKE 80713,45: FOKE 8074,60: 
075,65: POKE 80768,63: POKEE 8077, 31: 
8072,401: POKE 8079,43: 
KE 8081,45: 

3257 FOKE 8082,45: FPOKE 8083,60: 
084,53: POKE £2085,63: POFE 60865, 63: FOKE 
8087,635: FOKE 8088,I31: POKE 8089,40: FD 
RE 8090,45: 

2258 FPOKE 8051,45: POKE 8092,45: POKE S 
093,45: FOKE 8094,45: POEE 8095,45: POKE 
2096, 60: POKE 8097,63: POKE 8098,63: FO 

EE B093,6I: 

s259  POKE B100,653: FDOKE 8101,63: FOKE 8 
102,535: FOKE 8103, 31: POEE 104,40: FOEE 
8105, 45: FPOKE 8106,45: POKE B107,45: FO 

KE 5108,435: 


CIA 


NI 


FOKE 8053, 63: PO 


FOKE 8 
POKE 
FOKE 8080,45: FO 


POKE 8 


3265 FOKE 8109,45: POKE 8110,45: FOKE 8 
111,45: FOKE 8112,45: POKE 8113,60: FOKE 
8114,63: FOKE BIli5,63: POKE 2116,63: PO 

FE 8117,53: 

a261ì FDKE 8118,63: POKE Bl19,63: POKE 8 

120,67: FORE SI71,63: FOKE 8122,44: POKE 
B123,45: POKE 8124,45: FOKE 8125,45: FO 

KE 8iZ6,45: 

1262 POKE 8127,45: POKE B178,45: POKE 8 
2545: FURE 8130,45: FOKE SI3I1,60: POKE 
C132,6%: FOKE B133,61: POKE 8134,63: PO 

KE 2135,63: 

3763 FOKE B1I6,63: FOEE 8137,63: FOKE 8 

138,67: FOKE SII9,63: POKE E140,76: POKE 
B141,45: POKE B142,45: POKE 2143,109: P 

w®E 2144,41: 

IT64 FOKE 8145,45: POKE 81464,45: FPOKE S 

147,60: FOKE B148, 63: POKE 2149,63: POKE 
8150, 223: FOKE 8151,63: POKE 8152,63: F 

OKE 8153, 39: 

265 POKE 8154,45: POKE 8155,45: POKE @ 


156,103: POKE SI57,41: POKE 815,45: POK 
E &i59,45: FOKE S160,220: POKE Bi61,255: 
FOKE BI60, 215: 
3566 FOKE SI63, 
8165,43: POKE SI 
E Bi&B, 73: 
FOKE BI71, 
MKE B172,219: FOKE 8173,27: POKE 
FOKE £175;0: POKE 8176,45: POKE 
>DKE 8178,45: POKE 8179,45: FO 


FOKE 
FOKE 81647,77: POK 


POKE 8170,37: 


- 
oi 
G 


DKE 8164, 103: 
aL 
69,2 


CAST 
Lf 
Etc 
BI ia 
Bi Sit 


td 


POKE 8181,63: POKE 8182,63: FOKE 8 
53: POKE 8154,12: POKE 2185,45: POKE 
#,251 {E 8187,28: FOKE 8189,63: FO 
DFE 8190,5: POKE 8191,0: FOKE S19 


o 
273 RETURN 


Calorie 


La primavera preannuncia la prossima estate 
e, come al solito, il problema di molti sarà 
smaltire quel chilo in più che rovina tanto la 
linea. 

Ecco LIST venirvi in aiuto con questo 
programma che permette di valutare 


quantitativamente i consumi calorici per una 
serie di attività giornaliere abbastanza comuni. 
Conseguentemente sulle indicazioni 
riguardanti il consumo calorico giornaliero, 
non sarà difficile calibrare, con l'ausilio di 
adatte tavole caloriche, la dieta più opportuna. 


i REM&ECARLORIE# 
2 REM # Li 
3 REM # ciò 1955 MAX. # 
4 REM 


SPRINT POLES6S79, 9 

16 PRINTUNCALCOLO DEL CONSUMO 

DORICO" 

SO PRINT: FORA=ITOZO PRINT"; :FORTS1 

TOSO 

30 MEXTT.A:PRINT 

40 PRINTUMIIL PROGRAMMA PERMETTE DI CALC 

OLARE IL COMNSU-": 

SA PRINT'MO EMERGETICO MEDIO, ESPRESSO 
TH CRLORTE, IMUM INDIVIDUO DI ETA" 

SA PRINT'MEDIA ED IN EUONE CONDIZION 
IU DI SALUTE." 

7A PRINT'MEL PRATICARE ALCUNE ATTIVITÀ” 
QUOTIDIANE" 

26 PRINT'MOLTO COMUNI MELL'ARCODI UNA GI 
OFHATA," 

9A PRINT RN 


CAL 


6 IMNPUT'PESO IM KGUIEG 
TEFES3 1 S00PEG=ATHEHI 6 
GOSUESIE 

FORI=ITOZA 

PERDETE. CE 
TFATE="EMISTHEHI FA 
PRINT'EBI'CHPECEd4 TATE 
MESTI 

I=I-1 

GETAT: IFR*:=""THEMN1IS6 

200 IF (ASCA ODFAEDCHE$1+64) 3 ANDASCI "O" 


1a 
La 
i 


i Sa GL RI 


LI | 


IT ili 
fogea an Deo Li 


uu 
= 


210 IFREC>CHR$133THEN240 

500 Mx=M5+1:IFAT&="END'THENRESTORE :MX=0 
Za GOTDI LA 

240 RESTORE 

250 IFA$="0"THENSOG 

260 FORI=1TOMK#20+ASCA$)-64 

A READAT$. CF 

O MEXTI 

19 D=INT((22-LENCAT$13/23-1 

5 PRINTOUFORA=1T0D: D&=08+"M":HEXTA 


19 PRINTIS"": :FORA=1TOLENCAT$) :PRINT'— 
311 FORT=ITOSO:MEXTT,A:PRINT"" 

313 PRINTIE+"["+AT8+"1" 

215 PRINTI#"*":FORA=1TOLENCAT&3 PRINT" 


316 FORT=1T056:MESTT.A:PRINT"" 

320 PRINT'GUESTA ATTIMITA” RICHIEDE 
CF 

256 PRINT'CALORIE AL MINUTO PER OGHI KG 

DI PESO" 

246 PRINT'BPER QUANTI MIH, 

IHFLUT'FRATICATA":MI 

250 IFMI=OTHEM46G 

268 IFMICBORMI>1440THEHS40 

270 CH=KG#MI#CF 


E" 


375 TE=TE+MI 

276 FORAZOTOZI PRINT; :FORT= ito Go 

377 MERTT.A 

220 PRIMNT'COHSUMO CALORICO PER ATTIVITA 
‘"ACH 

sSs CA=SCA+CH 

dot PRINT CONSUMO CRLORICO TOTALE :" 

; CA 

sis FORRSOTOZI PRINT" :FORT=ATOGIA 

<ii HESTT.A 

+12 PRINT'ARCO DI TEMPO:":PRINTTE: MIN. 


FERRI A" 
414 H= INT“TESS03 :M=TE-(H#60) 

15 PRINTH: "ORE EUM: "MIN," 

si TE=1446-TE :HR= INTE TEA60): MES=STR- (HR*E 


lo 


17 PRIMT'TEMPO DA AHALIZZARE" 
«13 FRINTHEVORE E'ME"MIH, 
445 GETA$: IFHEC>CHR$ € 133: ANDASC>"0"THEN44 


+4] 


455 IFAS="0"THEH476 
255 IFTRS1THEHTR=9:GOT047A 
50 MI=O:RESTORE :NW=0:GOTO119 
<70 PRINT i :FORA=1TOZO: PRINT" FORT 
=1T055 
MESTT.A 


371 PRINT"; 


s72 PRINTIIL CONSUMO CALORICO. |"; 
473 PRINT"I TOTALE AMMONTA A 1"; 
474 PRINT" I"SPCC1O3 "CALORIE 1"; 
475 PRINT MIDI TRE C43CA 

475 PRINT" SPESE INMMBBIORE |"; 


477 PRINT" ErmBgiIHUTI, I" 

42 PRIMT'TTI'SPC(1123H 

s 73 PRIHT'"TRIUSPO CSM 

0 SE nl PU FORA=1 TOZA:PRINT—";:FOET 
=tT0509 

sul NES TT AGPRINT"" 

Set EHD 

Sie PRINT ELEMCO ATTIVITA” =" 


515 I-0:D$="" 
515 FORT=1T09R0: 
525 RETURN 

900 DATABICI 


HEATT:PRINT"I" 


DISCESA, M39 


1016 
LO 
1626 
1040 
1656 


Leoni 
(or rior] 


ur 
POTERI 
NE. 
arde‘ 


RA Gobi nio 
NOVE Are fi AI LOU ho 


[Act Ri o RE Aor i a AO 


Filone pd pd Gere punto fto pren fono prendi forse 
del 


LO e Mn 
(Rice oe E Act fee] 


_, 
Ara Ao 


NIE ELL LIL 


«56 DATATENHIS-DOPFIO, 033 
16 


Ea uti 


n° 


Tad id Li 


iI IAT 


e 


ao an 


Le a LI I 
Ip eb i 

pe 
sà vela” | 


i DRTAPATTINARE. bi 
i DATAEIFOSIO DISTESI, 


5 
“Y 


NANI 


ad 


DATABICI - FIAHURA.,. GG 


DATAEICI — SALITA..1 
DIRTARSCOLTO FADIO, ISS 
IMTREALLO SUO, Bed 
INTRAEALLO FMNCE,. 141 


IMNTACAMMIMAEE,. 66 
IATACANTARE, . B3F 
DATACHIACCHIERARE, » 24 
INTACORSA LENTA, 156 
INTACORSA VELOCE, , 2565 
DARTACUCIHARE,. G2s 
DATACUCIFE, 022 
DATAGIAEDIMAGGIO., 
DATADISEGHARE, 033 
IRTADORMIRE,. 615 
INTRED,FIS, INTENSA, , 123 
IATRED, FIS, MODERATA, BEE 
DRTARIFARE LETTO. BEE 
DATAIDOCCIA: 075 
DISTARLOTTA LIBERA. ,2 
IBTASPESA, HEI 

DNTRERS SEET, . j03 
DATABONLING, . G£i 
DNTRICALCIO, 135 
INSTAGICGCO A CARTE, M24 


H6E 


1 DATAPALLAVOLO, 079 


DATAPING-FOHG, 057 


DATATEMMIS-SINGOLO,, 
DATATELEYISTOME, . A22 
DATROGUITNARE, A41 
DATALA, PAVIMENTO, » Fi 
DATALA..FIATTI. 60323 
IMTALANARSI, 144 
DATALAVORARE MAGLIA, 022 
DATALAVORARE SEDUTO. A28 
IATALEGGERE, 624 
elit lia 
DATRHUOTARE.. 
DATRPRSSEGGIARE "i 
ug 
IRTAPESCARE, qa 

» 17 
DATARIPOSO SEDUTI. GZA 
DATASCALE,, 15; 
IINTASCIARE,., 155 
DIATAUSO COMPUTER, 
DATASFOLYVERARE,, 
URTRSTIFARE, A39 


» 34 
u=z 


DATASTUDIARE, 13M 
DATASUONARE PIANO, 639 
JIRTASUONARE BATTERIA... 
DATATELEFOHARE, 024 
DATAVESTIRSI. 66 
DIRTAEHI. ff, 6 


alate! 


y 


ELENCO VARIABILI 


TP Durata di un LOOP di ritardo FOR-NEXT 
X Posizione del primo carattere su cui si 
effettua l'ordinamento 


Y Posizione dell'ultimo carattere su cui si 
effettua l'ordinamento 

N Numero degli elementi (stringhe) da 
ordinare 

N$ Stringhe 

K FLAGdiscambio, ovvero variabile che 
cambia il suo valore da 0 a 1 se 
nell'esame delle stringhe c’è stata una 
inversione 

P Primastringa da visionare 


U Ultimastringa da visionare 


STRUTTURA PROGRAMMA 


20- 40  Inizializzazione dei registri per 
effetti sonori 

100- 180 Display presentazione 

190- 300 Inserimento del criterio di sort 
(se ordinare sulla base di 
confronti su tutti i caratteri degli 
elementi o solo su parte di 
questi) 

310- 380 Inserimento della posizione e del 
numero dei caratteri da 
confrontare 

390- 410 Controllo della validità della 
scelta effettuata 

420- 520 Display della scelta effettuata 

530- 640 Inserimenti delle stringhe 

650- 730 Esecuzione dell'ordinamento 

740- 782 Lampeggio del segnale di fine 
sort 

790- 990 Visione delle stringhe ordinate 

1000-1020 Fine programma 


Il compito che probabilmente riesce meglio ad 
un computer è quello di ordinare una grande 
quantità di dati, in funzione di una 
archiviazione o di una rapida elaborazione 
numerica. Proprio per tale motivo in Francia il 
computer viene definito ORDINATEUR, cioè 
ordinatore di dati. Le routines che si occupano 
dell'ordinamento degli elementi costituenti una 
lista vengono definite di SORT, che in inglese 
significa appunto catalogare, riordinare, e ne 
esistono di molti tipi, in relazione ai diversi 
algoritmi che risolvono il problema di un 


60 


veloce ed efficiente ordinamento. 

Il programma presentato sfrutta l'algoritmo di 
ordinamento a bolle (bubble sort), forse il più 
semplice. Creata una lista di stringhe, caricata 
mediante INPUT non ordinato — quindi 
casuale — la routine di bubble sort le 
posiziona in ordine alfabetico crescente. Gli 
elementi della lista vengono infatti confrontati 
a due a due, carattere per carattere, fino a 
trovare un carattere differente: l'elemento con 
il carattere avente codice ASCII minore viene 
considerato precedente l’altro. Se due 
elementi hanno un numero diverso di caratteri 
e la prima parte del più lungo è uguale 
all'intero altro elemento, quello più corto si 
considera precedente. E possibile operare il 
confronto su tutti i caratteri componenti le 
stringhe o su un numero limitato di questi. Il 
CBM 64 ha la facoltà di operare tali confronti 
in maniera molto semplice e rapida sfruttando 
l'istruzione MID$(X$,S,X). 

Più in dettaglio, la routine di sort (linee 
650-730) — passa — con un ciclo 
FOR-NEXT tutto l'elenco e confronta le 
coppie di stringhe adiacenti: se sono 
nell'ordine sbagliato, si scambiano; si ripete 
poi il processo fino a che tutte le coppie 
adiacenti siano in ordine; a questo punto la 
lista è ordinata. Ora è chiaro il motivo della 
denominazione BUBBLE SORT: ad ogni 
esame le stringhe che devono stare all'inizio 
dell'elenco si spostano verso l'alto, come una 
serie di bollicine d’aria che vengono a galla in 
un liquido. Tutto il resto del programma serve 
per introdurre le stringhe e visionarle una 
volta ordinate. Un segnale sonoro 
accompagna ogni scelta da effettuare da 
tastiera durante lo svolgimento del 
programma ed avvisa l'utente più distratto del 
termine del sort (*). 

È evidente che la durata dell'ordinamento 
varia molto in funzione del numero degli 
elementi inseriti: se si vuole sfruttare la 
massima capacità del computer — 
immettendo circa 400 stringhe da 78 caratteri 
ciascuna — occorre munirsi di molta pazienza 
ed attendere parecchi minuti prima di ottenere 
la visualizzazione della lista ordinata. Per i 
lettori più esigenti verrà pubblicata in un 
prossimo numero, una versione di questo 


programma che sfrutta un algoritmo 
decisamente più rapido ed una subroutine di 
stampa su carta della lista ordinata, 
indispensabile per elenchi contenenti un 


numero elevato di elementi. 


*) È possibile usare questa routine 


1 REM HHKHHKAHAAHAAAAAE EEE 
* * 


2 REM 

3 REM * SORT 1 * 
4 REM * * 
5 REM * % 
© REM MAKEEZARATETAA TAMA 


REM # PER COMMODORE 64 #* 
REICH AEAATTE 


[e] 


3 
18 REM #WéWINIZIALIZZAZIONE EFFETTO SONOR 


— se :FORI=STOS+24:POKEI,@: NEXT :POK 
*24,1 

POKES+5, 1#16+5:POKES+5, 1#16+9:POKES+3 
POKES+2,0 

FOKES+1,78:POKES, 26 


REM ###STRMPA PRESENTAZIONE*;* 


È LIRE ld 


® PRINT'IMMUR'':POKE53280,9:POKES3281,0 


IO _r—r.eo.i 
N 
22 PRINT" ld 
ni 
"32 PRINT" 19 sai SA RI 
wi ni 
142 PRINT" 13 
"| 
1 PRINT 1a DI MAURO CIFANI 198 
182 PRINT" 19 
si 
DR PRINTÙO —__—_—_——_——_—_——_ Tm 
n 
182 FOR TP=@ TO 4@90:NEXT 
186 REM #INSERIMENTO CRITERIO DI SORT* 
130 PRINT I 
e PRINT" rr_—__—t 
n= 
212 PRINT" IOGNI STRINGA NON PUO” ESSER 
E PIU I" 
228 PRINT" |TAB(36)"1" 
232 PRINT" ILUNGA DI SDUEW @_INEE® DI S 
TERMO i" 
2eè PRINT TTT 
ot) 


<5e FRINT''MMM SE DESIDERI EFFETTUARE L 
ORDINAMENTO" 

252 PRINT'M SU CARATTERI: " 

278 PRINT'MMM SDETERMINATI® PREMI & 


222 FRINT'MM SATUTTI® PREMI SAL 
TRO TASTOR" 
239 2$="":GETZ$:IF Z$=""THEN 2909 


235 POKES+4,65:FORTP=1T0190: NEXT: POKES+4 
3sa IF Z$<>"B' THEN X=1:Y=78:G0T0530 


NEREO 
Ò 


7A 


inserendola anche in programmi personali, a 
patto di modificare opportunamente i numeri 
di linea e badando a definire anche le 
stringhe da ordinare come elementi del 


vettore N$(J) e X e Y come primo e ultimo 


306 REM #*INSERIMENTO CHIAVE DI SORT* 
307 : 


316 PRINT" DEVI DARMI LA 2A0HIAVE® CIOE 
“ <POSIZIONE?" 

329 PRINT"M & CNUMERO> DEI CARATTERI DA 
VALUTAREM" 


GID PRINT:PRINI". \|1°_——TT ———_—_——_—_—_——__— 


ar PRINT" IRICORDA CHE OGNI STRINGA NON 
UO” lo 

359 PRINT" ISUPERARE «788 CARATTERI (DUE 
LINEE DII" 

364 PRINT" ISCHERMO MENO DUE SPAZI PER I 
La I 

SIB:FRINI” Lr—rrrr cose ie 
pia o 

380 INPUT''MM = POSIZIONE :";X 

385 : 


387 REM ###CONTROLLO VALORE INPLTH% 


390 IF X<1 OR X>78 THEN PRINT"M “XK: VAL 
ORE INACCETTABILE":GO0T0 390 
400 INPUT'BBBDBEBEBEBBEBEEBNIMERO: 


419 IFYC1 OR Y>(79-X>)THEN PRINT"M 
": VALORE INACCETTABILEMN':G0T0406 


415 : 

417 REM #*DISPLAY SCELTA EFFETTUATRAM 
418: 

420 PRINT'MM ECCO QUANTO RICHIESTO: <I C 
ARATTERI DA" 

430 PRINT'M CONSIDERARE SONO INDICATI C 
ON “e 7)" 

440 PRINT''80?20I';: IF X=1 THEN 469 

450 FOR SP=1 TO X-1:PRINT'@e®"; :NEXT 
4609 FOR CH=X TO X+Y-1:PRINT"@"; :NEXT 
470 IF X+#>78 THEN 490 

489 FOR SP=X+Y TO 78:PRINT'@08"; NEXT 
496 PRINT" CONFERMI? < RSM GND) 


soo Z$="":GET Z$:IF 2$=""THENSOAG 
505 POKES+4,65:FORTP=1T0190:NEXT:POKES+4 


510 IF Z$="N"THEN 310 
520 IF Z$C2"S"THEN 560 


527 REM #**#INIZIO INSERIMENTO STRINGHE%* 


539 PRINT'IN" 
549 INPUT"MM NUMERO TOTALE DELLE STRING 
HE: A N:PRINT' i 


545 

547 REM ##CONTROLLO NUMERO STRINGHE*# 
548 - 

550 IF N<2 THEN PRINT" TROPPO POCHE! S 
ORT INUTILE “:GOTO 540 

569 IF N>466 THEN PRINT" BADA! HAI SU 
FFICIENTE MEMORIA ? (S/N)":G0T0520 

570 GOTO599 

590 GETZ$:IFZ$="''THENS86 

585 POKES+4,65:FORTP=1T0190:NEXT:POKES+4 


5909 IFZ#$="N"THENS30:IFZ$C>"S"THENSS6 
95: 
597 REM ## IMMISSIONE STRINGHE*ME 


599 DIM N$CN) :FORI=1TON 
509 PRINT" A IMMISSIONE STRIN 
= 


6 

610 PRINT‘*MA = a'J"iI 8" STRINGA SU UN TO 
TALE DI 2'N'I 2" 
620 IF J=N THENPRINT TITTI SAT 
TENZIONE: ULTIMA STRIN da 
630 PRINT‘: INPUT N$CJ) 

640 NEXT 


645 | 
647 REM *%#*ROUTINE DI ESECUZIONE ORDINAM 


ENTO#** 
648 : 


61 


carattere da confrontare. 


na PRINT TTM BESEGUO IL SOR 
569 K=6 

670 FOR J=i TO N-1 

680 IFMID$CN$CJ),X,Y>)<C=MID$CN$CJ+1),X,) 
THEN 720 

699 AS=N$CJ):B$=N3(J+1) 

700 N$(J)=B$:N$<J+1)=A$ 


710 K=1 

720 NEXT J 

739 IFK=1THEN 660 

795 | 

737 REM ##*LAMPEGGIO SEGNALE DI FINE SOR 
Tuga 

738 : 

740 FOR H=l TO 19:POKES+4,6 

759 PRINT'I':FORTP=1T050 NEXT 

760 PRINT''MMM SS0RT ESEGUITOS" 


765 POKES+4,65 

779 FOR TP=@ TO 100:NEXT 
780 NEXT 

782 POKES+4,0 


785 
787 REM #WWXYISIONE STRINGHE ORDINATE 


788 : 

799 PRINT" SE DESIDERI CONSULTARE LE 
STRINGHE : 

809 PRINT'MMI dA A GRUPPI ® PREMI 

aria 

818 PRINT'MMY 2 INSIEME ® c#&) FREMI 
ALTRO TASTO" 

820 PRINT''ERMSM =) PURCHE” ENTRINO SU 

L_ VIDEO !" 

830 Z$="":GET Z2$:IF Z$=""THEN 839 


a POKES+4, 65 :FORTP=1T0100:NEXT:POKES+4 . 


840 IF Z$<>' THEN P=1:1U=N:GOT0910 

850 PRINT'UIM DEVI DIRMI I NUMERI D’ORDI 

NE DELLA" 

860 PRINT'M PRIMA <P) E DELL'ULTIMA <U) 
STRINGA" 

879 PRINT"M DEL GRUPPO DESIDERATO" 

e Hi rio RISPONDI NEL FORMATO: @ 
La 

890 INPUT"M ‘“;P.U 


REM #*#CONTROLLO VALORI INPUT 44% 


900 IF F<1 OR UCi OR U<P OR UN THEN PRI 
M VALORE INACCETTABILE! M':G0T0290 


905 : 
past REM #*DISPLAY STRINGHE ORDINATE** 
916 PRINT'TIN ELENCO ORDINATO DI —'N"- 


STRINGHEM" 
920 FRINT" DALLA #'PiB’ ALLA @ 


id they TAL 

930 FORJ=P TO U 
940 PRINT"N"J" 
9509 NEKT 

960 PRINT"M VUOI CONTINUARE ? 
I RA) 

970 Z$="":GET Z$:IF Z2$="'THEN976 

975 POKES+4,65:FORTP=1T0109:NEXT:POKES+4 


989 IF 2$="S" THEN 356 
999 IF 2$50"N" THEN 9708 


5 
997 REM #4#*F INE PROGRAMMA*4* 


“N$ CJ) 
CRISPOND 


9985 
1000 POKES3288, 254: POKE53281,246:PRINT"I 
CIAO"; 


i st POKES+4, 65: FORTP=1T0100: NEXT :POKES+ 
, 

1020 END 

READY. 


Qualche tempo fa, con il boom del fenomeno 
home-computer, in molti negozi circolava un 
programma, di una certa efficacia, che voleva 
dimostrare come il computer potesse quasi 
«ragionare» autonomamente. Molti inesperti 
ed entusiasti acquirenti di allora, 
probabilmente si fecero affascinare un 
pochino troppo da quel programma, pensando 
quasi che il computer fosse un magico 
«marchingegno» a cui poter delegare le 
decisioni più difficili. Constatata l'amara realtà, 
molti hanno finito per accantonare questa 
«stupida» e strana macchinetta considerata 
purtroppo da molti come la panacea dei 
problemi che affliggono l’uomo della strada. 
Un peccato sottovalutare quel programma e 
con esso il computer. 

Si tratta invece di un modo molto scientifico di 
accostarsi ai procedimenti logico-mentali che 
tutti noi compiamo giornalmente quando 
prendiamo una decisione, importante o no 
che sia. Il maggior pregio della 
«computermania» diffusasi in modo 
incontrollato nel nostro paese, avrebbe dovuto 
essere quello di comprendere ed assimilare 
quei processi logici che tutti i programmatori 
dovrebbero avere; per capirci, un po' come 
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succedeva con il latino o la matematica. 

Così purtroppo non è stato: sono molti coloro 
che fruiscono passivamente del software in 
commercio ormai anche dai fruttivendoli e non 
si chiedono nemmeno come possa funzionare 
e su quali basi sia costruito. Il programma 


presentato in queste pagine permette di 
prendere delle decisioni sulle basi più 
scientifiche possibili. Il procedimento, che si 
basa sul numero e sulla qualità dei fattori che 
intervengono nella decisione, sul loro ordine 


di importanza, sulla valutazione singola e 
totale rispetto alle varie alternative, alla fine 
fornisce un elenco ordinato delle percentuali 
assegnate alle varie alternative. Non pensiate 
però che tutto avvenga in modo automatico, 
in realtà durante l'esecuzione del programma 


è indispensabile fornire il proprio contributo 
indicando ad esempio l'ordine di importanza 
dei fattori o «aiutando» il computer a 
confrontare le varie alternative esprimendo le 
proprie valutazioni per ogni fattore. AI 
computer è destinata forse la parte più 
noiosa, quella dei calcoli, all'uomo come al 
solito in questi casi, quella più importante, 
quella di guida della macchina. 


ie CLS:COLOR4,7 

22 CURSOR®, 12:PRINT"DECISION MAKER" 

3@ FOR T=1 TO 9@@:NEXT T 

#@ CLS:COLOR2,1 

s@ DIM L8(72),F$(2@) 

ce DIM UC2e),C(28, 20) 

72 DIM D(2@),2C(26) 

22 E$="- "PRINT" rrr QQ Qr’aQQQvcQ QQ cQr0ò 


rn !! 


PRINT"1) SCELTA DI UNA TRA DIVERSE 
_ TERNA- TIVE. ":PRINT 

122 PRINT"2) SCELTA DI UNA SERIE DI AZ 
[CONI TRA DIVERSE ALTERNATIVE, ":PRI 
112 CURSOR3,8:INPUT "COSA SCEGLI ";R$ 
122 T=VAL(R$) 

1352 ON T GOTO 140,182 

142 CURSOR3, I@:PRINT“SL! CHE TIPO DI QU 


(52 CURSOR3,11 

152 INPUT "DEVI DECIDERE ";T$ 

178 GOTO 190 

© Ts="SERIE DI AZIONI" 

2 NI=@ 

222 PRINT:PRINT"OCCORRE UNA LISTA DI O 
SNI ";T$ 

212 PRINT"IN ESAME. RISPONDI AD OGNI P 
ANTO DI" 

2722 PRINT"DOMANDA E BATTI <"; 
& FINE." 

232 PRINT 

242 NI=NI+1 

2 INPUT L$(NI) 

@ IF L$C(NI)<%ES THEN 242 

2 NI=NI-1 

© IF NI>=2 THEN 318 

? FRINT:PRINT"DEVI FARE ALMENO 2 SCE 


E$;"> ALL 


E... RIPROVA?" :BEEP 

se GOTO 190 

212 PRINT:PRINT"QUESTA E" LA TUA LISTA 
:PRINT 


322 FOR J=1 TO NI 
232 PRINT STR$(J);" 
352 NEXT J 

352 PRINT:PRINT"ORA PENSA AI FATTORI C 
E CONSIDERI PIU* IMPORTANTI FER SC 
LIERE IL/LA" 

2 PRINT"MIGLIORE ";T$ 

2 PRINT 

2 PRINT"BATTI <"3E$;"> ALLA FINE." 
33@ NF=@ 

«22 NF=NF+1 

INPUT F$CNF) 

IF F$(NF)<>E% THEN 400 

NF=NF-1 

PRINT 

IF NF>=2 THEN 490 

PRINT :PRINT"DEVI FARE ALMENO 2 SCE 
+e. RIPROVAI" 

NF=@ 

GOTO 400 

CLS 

COLOR2,1 

PRINT"LISTA DEI FATTORI:":PRINT 
522 FOR J=1 TO NF 
53@ PRINT STRSC(J);" 


"5L$(4) 


tap Cab da mi 


(RS RER] Da 


& hh ad 
Ls 


» 
i © U 


» 
DONI 


QOOMmoocopgoaoo 


588 


“;F$(J) 


54@ NEXT J 

558 PRINT:PRINT"DECIDI QUAL’E* IL FATT 

ORE PIU®* IMPOR- TANTE ED INTRODUCI IL 

SUO NUMERO. " 

560 PRINT :PRINT"USA 8 PER CORREGGERE, ", 
3PRINT . 

52@ INPUT A 

58@ IF A=@ THEN 350 

59@ IF fA>@ AND ASCNF-1) THEN 620 

62@ PRINT 

61@ GOTO 578 

62@ IF NF=1 THEN 780 

63@ CLS 

64@ PRINT"SCALA DI IMPORTANZA DA Q A 1 
+ "PRINT 

652 PRINT"DAREMO A “";5F$(A);" UN VALORE 


660 PRINT"PARI A 18 PERCHE® ";F$CA) 
672 PRINT"E*' PIU‘ IMPORTANTE DEGLI ALT 
RI FATTO- RI." 

682 PRINT"CHE VALORE HANNO GLI ALTRI F 
ATTORI ?":PRINT 

698 FOR Jj=1 TO NF 

700 Q=A 

210 IF J=Q THEN 770 

228 PRINT " “;F8$(J);" "; 

7232 INPUT UCJI 

24@ IF U(J)>}=@ AND VUCJ)C11 THEN 270 
7252 PRINT:PRINT"UALORE IMPOSSIBILE...R 
IPROVA?" 

762 GOTO 720 

22@ NEXT J 

288 UC(A)=3 

792 Q=a 

80@ FOR J=1 TO NF 

812 0=0+U(J) 

82@ NEXT J 

83@ FOR J=1 TO NF 

84@ U(J)=U(J)/0 

85@ NEXT J 

860 CLS 


8722 PRINT"ORA CONFRONTIAMO OGNI ";T$ 
882 PRINT"SECONDO UN LIVELLO D’ IMPORTA 
Nz2A E" 

89@ PRINT“"CONSIDERANDO I FATTORI SINGO 
LARMENTE, " 

922 PRINT"DOPO GIUDICHEREMO OGN 
918 PRINT"NEI TERMINI 
TORE." 

92@ PRINT"DIAMO A ";L$C1);" UN UALORE" 


"sTae 
DI QUEL SOLO FAT 


93@ PRINT"DI 1@ SU TUTTE LE SCALE." 
948 PRINT"AD OGNI ALTROZA ";T$ 

95@ PRINT"SARA' ASSEGNATO UN VALORE MI 
NORE 0 MAGGIORE DI 10 IN BASE AL FA 
TTO CHE" 

968 PRINT"TU PRESUPPONGA SIA MIGLIORE7 
PEGGIORE." 

972 PRINT"DI ";L$(1) 

982 PRINT:PRINT:PRINT"PREMI UN TASTO P 
ER CONTINUARE." 

992 X$=INKEY$:IF Xs="" THEN 99@ 

1000 FOR J=i TO NF 

1018 CLS 

10208 PRINT"CONSIDERANDO SOLO ";F$(J) 
1930 PRINT"ASSEGNIAMO 18 A ";L$(1) 
10948 PRINT:PRINT"QUAL’E* IL VALORE PER 


À 


qs Y 


y 


A 
n 


105@ FOR K=2 TO NI 

1068 PRINT L$£CK); 

187@ INPUT CCK,J) 

1@8@ IF CCK,J)>=@ THEN 1110 

1092 PRINT:PRINT"UALORE NEGATIVO? 
VALIDO...":BEEP 

lie GOTO 1060 

111@ NEXT K 

112@ C(1,4)=10 


NON 


°113@ NEXT J 


1148 CLS:PRINT“TRA POCO TI DARO® 
UA SENTEN2èA2E" 
115@ FOR J=1 TO NF 


L’ARD 


1160 Q=0 


1170 FOR K=1 TO NI 

1188 90=0+CCK,J) 

1198 NEXT K 

120@ FOR K=1 TO NI 

1218 C(K,J)=C(K,J370 

1220 NEXT K;J 

123@ FOR K=1 TO NI 

1248 DCK)=@ 

12508 FOR J=1 TO NF 

1260 DCK)=D(K]+CCK,JIXUCJI 
12720 NEXT J;K 

1280 Mx=@ 

129@ FOR K=1 TO NI 

132@ IF D(K)<=MX THEN 1320 
131@ MX=DCK) 

132@ NEXT K 

1332 FOR K=1 TO NI 

1342 D(K)=DCK)X1007MxX 

1352 NEXT K 

1362 FOR K=1 TO NI 

13722 2(K)=K 

1382 NEXT K 

1392 NM=NI-1 

1482 FOR K=1 TO NI 

141@ FOR J=1 TO NM 

1422 Ni=2(J) 

1430 N2=2CJ+1) 

1442 IF DCNI)>DC(N2) THEN 1470 
1452 2CJ+1)=NI 

1460 2(4)=N2 

142@ NEXT J,K 

1482 CLS 
l'ASR5PRINI==——===-=====sso==="===* 


1520 PRINT"AzA rr Annnnn anna n AK A\ A NAAANAAAA 


AAALADAAAADAMN 


152@ PRINT:PRINT"ECCO NELL’ORDINE LA L 
ISTA OTTIMALE CHE HO RICAVATO:" 


15528 PRINT:FOR J=1 TO NI 

1562 Q=2(J) 

1572 PRINTINT(DC0));" ";L$C0) 

NEXT) 

1592 PRINT 

IRRRERINE copsraze rsa 


1612 PRINT"“AnAnnA A 1 AAA AAAANAAAAAAANAABA 
nnnnnnnannsn 


1622 PRINT"---------------—--=-------- 


1632 END 


Analisi 


Analisi 1 intende fornire un ausilio didattico a metodi usati sono quelli di NEWTON, delle 
chi, per studio o per lavoro, si trovi di fronte SECANTI e di BISEZIONE. 
alla necessità di dover calcolare degli integrali Questi metodi comportano una conoscenza 


definiti, oppure trovare le radici di dell'analisi che esula da queste pagine, e 
un'equazione. quindi al contrario degli integrali (più facili da 
Gli integrali vengono calcolati per via comprendere, anche solo intuitivamente), per 
numerica con due diversi metodi, quello dei la spiegazione dei metodi usati per la ricerca 
RETTANGOLI e quello più preciso dei delle radici di una equazione si rimanda ad un 
TRAPEZI. più esauriente manuale di analisi. 


Per quanto riguarda la ricerca degli zeri i 


, 
I DE s i, f 
"st Sn è d; . PL : Ne, ; 
94 ' 
uu Sp di o DO, 
iSV4 ai na end DE 
278 PRINT DBEGESBCE CBEBEGCE DBEGEGC | 420 PRINT" 2 FEDRICERCA DEGLI 2ERI 
E ED FD DpsEGEeDC FD ro 
2 PRINT DBE8EGD3 FO FO DBEOEGD3 430 PRINT" ED 
ED EAEOEGDC FD 
RINT* EAEBEODD CD ( 448 PRINT" 3 DISTRUZIONI 
E Ea EAEBE DER LA e =” 
18 REM AGOGGOIGONOOIUNONOCOIUI GONO 92 FORX=2@T052:NEXT:PRINT MERO" 4528 PRINT" ED 
REM KAKREXAKALKKKKXKKKKAKKKKKEAKKKKKK " 
28 REM x % Mx MENU” i 462 PRINT' 4 EDCANCELLAZIONE PROGRA 
38 :REM x PIERO VERZASCHI %* MO KAAKKEKAAKAAAKAKKAAKAKAKKKAKKKAKAKKKAAAKK nma e 
e :REM È PER CBM 64 % 2INT "EROREGEOEGECEDE0EGEREBEBEOEGEO | 472 PRINT'EGEGEOEOFOESE0E0ESE0ERERE0E0C8 | 
5@ :REM *TRADOTTO PER SHARP M2-702 DA £ DERE OE BEOE BE NEO EREOEBEBELEOESE8 FOESEDEGEGEOECEOEOE0EBE0EDELELEBE BE CE0EO8 
DA IREM FOOGGO ROGO GOGONOGONA ARRETRARE EDEBEOEOEOEeEe :REM 42 TRATTI F@EGE0ES" :REM 42 TRATTI 
78 1REM X ANGELA FERRO & * 350 PRINT"E POSSIBILITA” DI SCELTA 482 REM 
Ba :REM X PIERO UVERZASCHI x i 198 REM 
10 REM MOGGIO GOVORO IGO MUONI | 390 PRINT'EBEBEDEOFOEGEGEGEDEOEOFOESESEO | 5aa REM 
90 PRINT"E XXXX% @ PIERO VERZASCHI EGEO EBEOEGESEREOEOE0CALOE0E2E0EDEO 510 AS=2 
FILE" EBE2 520 INPUT"EB INSERISCI IL NUMERO PER LA S 
200 FORF F=270422 :NEXT 322 PRINT" FD CELTA "5AB 
212 4 
220 REM 389 PRINT (e EDINSERIMENTO NUOVA FL 532 IFAB=@THEN2272 
238 REM N2 IONE » 50 IFAB=]THEN680 
248 DEF FNACXI=X 390 PRINT" ED 562. IFAB=2THEN1932 
24) I=208:0IMWC13) x 578. IFAB=3THEN21589 
250 PRINT“gu” 122 PRINT" I EDCAL.NUMERICO DELL'IN 582 IFAB=4THENPRINT"B" :END 
260 PRINT' FD TEGRALE" 598 : RE ACI REI RIA RIO 
" e 438 PRINT! ED 608 PRINT"E":REM* CLEAR SCHERMO x 
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518: SME ZEZZT2 2220200000000 0001 
632 REM AAKLKAKXAKKKXKKXAKKKKKKXKAKXKXKX 
42 REM x CALCOLO INTEGRALE x 
5 REM FARRAAKKAKAKXKKXKKAKKKKAKKXAKXKAKXK 
368 PRINT" ODBEBFOrIE0E RE BE0E DENECENEORE 
EREsE2ELEBEBE SEDE BEE 2ECEBENE DERE E 

[08 È 
528 PRINT El: e Ca 


598 PRINT“ ED ED ED FD FO CREGEGEBERE 
22003 FD 0BE4E4D3 FO FO E2°" 


ED CO  EREBEGEB EA EA E2' 
718 PRINT" ED EAEGE00D 


Egr i 
728 PRINT" EREGEGEGECEBEDEDEBE0EGEGEOE8 
EBERELEGE BEBE GE DE GE DE CE BE SE BE CE DE DE0ERE 8 


732 INPUT"ESTREMO INFERIORE D’INTEGRAZIO 
NE";A 

742 INPUT"ESTREMO SUPERIORE D’INTEGRAZIO 
NE" 8 

738 INPUT"NUMERO ITERAZIONI ";N 

702 H={B-A)ZN 

778 S=0 

782 T=2 

792 S1=@ 

FORI=1TON 

xX=B+1àXH 

T=T+(FNACX]J*+FNACX+H]]*H72 
S=S+FNACX+H-2) 
S1=S1+ABS((FNACX]+H]-FNA{X])] 

NEXTI 

S=S%H 

Si=S1%*H 

REM EAEXKKEKAKAKAKKLAIAREAERAAT AREE 
REM * STAMPA RISULTATI x 
REM RIO RE RICOOOA ORE RIOT 
PRINT ENG 


® 
o 


£ 
DS) 


( n w bn ® o ® 
Ò) — 
80 
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w 
las] 


S22 PRINT" 

“:REM 40 SPAZI 
332 PRINT" 

"REM 42 SPAZI 
se PRINT"ADP METODO DEI TRIANGOLI 
252 PRINT" EBRWOUREBDAE208E200E2980800F C 
x3=";s 
sse PRINT"ND METODO DEI TRAPEZI " 
sa PRINT" BEERMIPEBTRE2IGE 208E2080800F c 
K3=";T 
Se2 PRINT "DO STIMA DELL'ERRORE ";S1 
ss@ PRINT" batti un tasto " 
‘esa GETG$:IFG$=""THEN1000 
te:2 IFG$<>""THEN25@ 
rezza : REMO ERAGKARIAGFOAIOARAIARERATAA 


832 PRINT"B":REM * 
asa : REMO PROGR RIINA 
resa REM Xx RICERCA DEGLI 2ERI x 
COTE REMO BIRRERIE RE AIAOGORAAA 
72 PRINT" DBEOEGEBEGESEOEOEO 


DBEGEGEGEGEOEOEGFOrOrOrorore 
TREBEBEBEDEOE NE DE DE BE0E0E DEDE NE 0E0E0E0EO 


CLEAR SCHERMO * 


Sar erenc" 
tesa PRINT" ED C4C 
ESS PRINT" ED FE DoEeEeoC ©«=£ 
sesreoc = FD " 
Tea PRINT" ED EE CBEOEBESB È 
e ED 2° 
Tira PRINT" FO = EE = EAEGEGEB £ 
E co e2' 
%322 PRINT" FO = C30303 

E2" 


(132 PRINT" EAEBEOEGEDEGEREGERE0E0EREOCO 
TRE DEDE BE BEREBE RE REBERE DE DEC SELE CE0ESEO 
EeroceEs" 

(142 IFA9=QTHENI 160 

ti5e RETURN, 


1162 AS=1 
11728 Mi=@ 
Î180 M2=@ 
1190 M3=@ 
1208 PRINT" 
1218 INPUT A 
1228 PRINT" 
1238 INPUT 8 
1248 x@=A 
1250 x1=8 
1262 SO=A 
1222 Si=8 
1312 PRINT"ERRORE TOLLERATO SULLE ORDINA 
nE et) 
1320 INPU 
1332 PRIN 
| 
134@ INPUT. DI 

1358 PRINT"SCEGLI L'INCREMENTO H"; 

1362 INPUT H 

13722 PRINT"E" 

1380 GOSUBI072 

1392 Y@={x@+X1)72 

1422 FORI=1T0202 

1418 IFMI=@THENI 450 

14328 IFM3>@THENIS52 

TAG REMO RIGORI OA O ARIE 
1452 REM x BISEZIONE x 
1452 REM XAKXKKKXXKKKKXKKXAKKKK KELKKKKKA 
1478 C=(A+B1/2 

1482 IFABS(FNA(C]))>DTHENI500 

1492 IFABS(B-A}<DI THEN1558 

15208 IFFNA(C)*xFNACA] <=@THENI532 


ESTREMO INFERIORE "; 


ESTREMO SUPERIORE "; 


TD 
TERRORE TOLLERATO SULLE ASCISS 


15712 A=C 

1522 GOTO1654@ 

1538. B=C 

1542 GOTOl 640 

1552 Mi=i 

1555. è 

MGL TM 3000 2220720022020 00220 00000000001 
1859 REM x METODO DELLE SECANTI x 
tialelniclae 2022022020000 0202 00005000001 
1678 S=5S2-C(51-S@]/{FNACSì)-FNA(S8))XFNA( 
S2) 


1680 IFFNA(S])XFNAC[SB)>ATHENI719A 

1692 S1=5 

17028 60701728 

1712 Se=s 

1220 IFABSCFNA(S))>DTHENI768 

1238 IFFNACS-D1)*FNACS+D]]> @THEN1?252 
17240 M3=1 

1250 REM EKXKAKKKKXKKKKKKXKXKAKKKIKEATAKAK 
1262 REM x STAMPA PARZIALI x 
12728 REMO AAA RAR IO ARA 
1280 : 

17290 : 

1880 PRINT"RBISEZIONE "ia 

1818 GOT01830 

1820 
1838 
1860 
1820 
1882 PRINT"SECANTI 
1892 GOTCISIA 

1902 : 

19810 NEXTI 

1920 REMO ARA ARA EROE EEE 
1930 REM * STAMPA RISULTATI FINALI x* 
1948 REM EASAGA AAA AOLO 
1952 PRINT "A0ROR" 

19609 PRINT"“LA FUNZIONE ";A$ 

197@ PRINT"VALE NEL PUNTO TROVATO :" 
1988 PRINT"BF(X)= "5FNACC);" (BISEZIONE) 
2809 PRINT"MIF(X)= "iFNACS);" CSECANTI)" 
20812 PRINT“RQ batti un tasto" 
2020 GETK$:IFKs=""THEN2028 

20838 IFK$<""THEN250 

2048 REM XEKEKKXKKXKAKKKAKAKKKAKKKKAKKAKKXKK 
2050 REM x SCELTA FUNZIONE x 
2RD@ REM KEKKAKXEAKKKKAKKAKKAKAKAKARRAREERERE 


se ne 0 sn 


“G5S "Boa" 


NUMA 
Ò 


s 
IN 
x 
x 
x 


N 


co Ai + 


= 


2078 CUR: INPUT "S2000R F(X)=";Ps$ 
2088 PRINT"f6BD0249 DEF FNA(X]}=";P$:PRINT 
“GOT0242" 

2090 PRINT"® batti 2 volte — C 
R-« 


2180 PRINT"B":END 
2110 GET2$:IF2$=""THEN21]8 
2115 IFZ$CHR8$(13)THEN2072 


2116 60702408 
2120 REM KAKAKKAKKKKAKAREKEAEA TEAK 
2132 REM * ISTRUZIONI * 


2142 REM KEKXKKKAKAKKKKAKAKKKKAREAKRKATAAE 

2150 PRINT"O" 

2160 PRINT"HI] programma puo”svolgere 2 

diversi sen" 

2122 PRINT"LIZI nel campo dell’analisi:" 
2180 PRINT" per contirmuare batti u 
n tasto" 

2190 GET Js$:IFJ$=""THEN2198 

22908 IFis<>""THEN2218 

2218 PRINT"EDI) Puo” risolvere per via n 
umernica gli" 

2220 PRINT"integrali definiti.(I metodi 

usati sono" 


2230 : 

2248 PRINT"quelli noti dei triangoli e d 
ei trape-" 

2258 PRINT"“ZI}il programma fortnisce ino 
tre una" 


22654 PRINT'stima dell’errore cioe”una st 
ima di " 

22722 PRINT"quanto il valore reale si avv 
icina a" 

2288 PRINT"que llo trovato dal computer, ) 
2290 PRINT"D 
tasto" 

2380 GETJI$:IFJ$=""THEN23008 

2318 IFJ$O""THEN2320 

2328 PRINT"E22) I] secondo servizio inve 
ce effettua" 

2338 PRINT"la ricerca degli zeri della f 
unzione da" 

23428 PRINT"“ta." 


per continuare batti un 


2358 PRINT“Il programma ricerca gli zeri 
operando" 
2368 PRINT"con tre metodi diversi :BISEZI 
ONE, s 


23728 PRINT"SECANTI sognuno di questi due 
metodi for" 

2388 PRINT"nisce un valore dello zero,co 
nfrontando" 

2398 PRINT"; valori ottenuti si puo”aven 
e cosi ‘un" 

2400 PRINT"risultato piu” affidabile." 
2412 PRINT"(-USO- Si inseriscono gli est 
remidella" 

2420 PRINT" funzione, inserendo successiva 
mente ili" 

2438 PRINT"valore dell'errore massimo am 
missibile," 

2448 PRINT"sia sulle ordinate che sulle 
ascisse " 


2458 PRINT"dopo di che si 
alore dell" 

2468 PRINT"incremento,cioe”la precisione 
con la " 

2478 PRINT"quale si vuole raggiungere lo 
zero" 

2482 PRINT"cercato.I| Pprosramma comincia 


inserisce il uv 


a girare" 

2498 PRINT"quando trova lo zero, con ogn 
i singolo " 

25228 PRINT"metodo,visualizza il valore d 


ello zero che annulla la funzione" 
2519 PRINT"E per continuare batti 
un tasto" 

2528 GETJ$:IFJ$=""THEN2520 

2538 IFJ$sOo ""THEN2550 

2540 : 

2559 6GOT0250 


Gioco dei fiori 


Un gioco adatto ai più piccini atto a spronare visualizzata l'esatta serie numerica. 
le loro capacità di osservazione. Il gioco finisce dopo 20 schermi. 
GESTIONE DEL PROGRAMMA VARIABILI PRINCIPALI 

Premere ogni volta il tasto P per far partire le QUE Conteggio quesiti 

5 serie di fiori dai diversi colori, osservarne RIS Conteggio risposte 
attentamente il numero (ogni riga ne contiene LIV Livello di difficoltà 

al massimo 7) e digitarlo: le cifre si LI Durata apparizione 
apporranno automaticamente a partire dalla CE RANDOM Numero fiori celesti 
serie celeste. GI RANDOM Numero fiori gialli 
Un accordo musicale sottolineerà la risposta VI RANDOM Numero fiori viola 
esatta, facendo salire il punteggio; se invece RO RANDOM Numero fiori rossi 


la risposta sarà errata (anche una sola), sarà BL RANDOM Numero fiori bleu 


10 CALL CLEAR 250 CALL CHAR(97, "OOCOE0E0EOCOSCBE") 590 CALL SOUND(100,880,10) 

20 CALL SCREEN(12) 260 CALL CHAR(105, "OOCOEOE0EOCO6CBE") 600 FOR A=3 TO 19 STEP 4 

30 RR=3 270 CALL CHAR(113, "O0COEOEO0EOCOSCBE") 610 CALL HCHAR(A,31,63) 

40 QUE=0 280 CALL CHAR(121, "OOCOEOEO0EOCOSCBE") 620 NEXT A 

50 RIS=0 290 CALL CHAR(42,"7B707E3307070703") 530 FOR A=2 TO 18 STEP 4 

50 A$="QUESITI RISPOSTE" 300 CALL CHAR(98,"7B7D7E3307070703") 640 CALL HCHAR(A,30,32) 

70 PRINT " GIOCO DEI FIORI (d | 310 CALL CHAR(106,"7B7D7E3307070703") 650 NEXT A 

edicato a daniele) 320 CALL CHAR(114,"7B7D7E3307070703") 6560 CALL COLOR(2,16,16) 

DADO 1984":: 330 CALL CHAR(122,"7B7D7E3307070703") 670 CALL COLOR(9,16,16) 

340 CALL CHAR(43, "DEBE7ECCEOEOEOCO") 680 CALL COLOR(10,16,16) 
350 CALL CHAR(99, "DEBE7ECCEOEOEOCO") 590 CALL COLOR(11,16,16) 
360 CALL CHAR(107,"DEBE7ECCEOEOEOCO") 700 CALL COLOR(12,16,16) 
370 CALL CHAR(115, "DEBE7ECCEOEOEOCO") 710 CALL COLOR(13,16,16) 
380 CALL CHAR(123, "DEBE7ECCEOEOEOCO") 720 RANDOMIZE 
390 CALL CHAR(128,"0371793DIF0F0101") 730 CE=INT(7#RND+1) 

80 INPUT "LIVELLO FACILE PREMI 1 LI | 400 CALL CHAR(129,"B00E3C78F0E0") 740 RANDOMIZE 

VELLO MEDIO PREMI 2 LIVELLO SUPER | 410 FOR Asi TO LEN(A$) 750 GI=INT(7#RND+1) 

PREMI 3 ":LIV 420 B=ASC(SEG$(A$,A,1)) 750 RANDOMIZE 

90 IF LIV=i THEN 120 430 CALL HCHAR(21,6+A,B) 770 VI=INT(7#8RND+1) 

100 IF LIV=2 THEN 140 440 NEXT A 780 RANDOMIZE 

110 IF LIV=3 THEN 160 ELSE 80 450 FOR A=3 TO 19 STEP +4 790 RO=INT(7#RND+1) 

120 LI=6500 450 CALL HCHAR(A,31,63) 800 RANDOMIZE 

130 GOTO 170 470 NEXT A 810 BL=INT(7#RND+1) 

140 LI=200 480 CALL HCHAR(3,30,43) 820 FOR D=3 TO (CE#4)-i STEP 4 

{50 GOTO 170 490 CALL HCHAR(7,30,99) 830 CALL HCHAR(1,D,40) 

160 LI=30 500 CALL HCHAR(11,30,107) 840 CALL HCHAR(1,D+1,41) 

170 CALL CLEAR 510 CALL HCHAR(15,30,115) 850 CALL HCHAR(2,D,42) 

180 CALL SCREEN(16) 520 CALL HCHAR(19,30,123) 850 CALL HCHAR(2,D+1,43) 

190 CALL CHAR(40,"00070F0F0F07327D") 530 CALL HCHAR(23,9,48,2) 870 CALL HCHAR(3,D,128) 

200 CALL CHAR(96,"00070F0F0F07327D") 540 CALL HCHAR(23,20,48,2) 880 CALL HCHAR(3,D+1,129) 

210 CALL CHAR(104,"00070F0F0F07327D") 550 CALL KEY(0,K,S) 890 NEXT D 

220 CALL CHAR(112,"00070F0F0F07327D") 560 IF S=0 THEN 550 900 FOR D=3 TO (61#4)-1 STEP 4 

230 CALL CHAR(120,"00070F0F0F07327D") 570 IF K=B0 THEN 590 910 CALL HCHAR(5,D,96) 

240 CALL CHAR(41, "OOCOE0EOEOCO&CRE") 580 GOTO 550 920 CALL HCHAR(5,D+1,97) 


nine 
cY! 


SS 


= -. 


CALL HCHAR(6,D,98) 

CALL HCHAR(6,D+1,99) 
CALL HCHAR(7,D,128) 

CALL HCHAR(7,D+1,129) 

NEXT D 

FOR D=3 TO (VI#*4)-1i STEP 4 
CALL HCHAR(9,D,104) 
CALL HCHAR(9,D+1,105) 
CALL HCHAR(10,D,106) 
CALL HCHAR(10,D+1,107) 
CALL HCHAR(11,D,128) 
CALL HCHAR(11,D+1,129) 
NEXT D 


FOR D=3 TO (RO#4)-1 STEP 4 
CALL HCHAR(13,D,112) 

CALL HCHAR(13,D+1,113) 
CALL HCHAR(14,D,114) 

CALL HCHAR(14,D+1,115) 
CALL HCHAR(15,D,128) 

CALL HCHAR(15,D+1,129) 


NEXT D 

FOR D=3 TO (BL#4)-1 STEP 4 
CALL HCHAR(17,D,120) 
CALL HCHAR(17,D+1,121) 
CALL HCHAR(18,D,122) 
CALL HCHAR(18,D+1,123) 
CALL HCHAR(19,D,128) 
CALL HCHAR(19,D+1,129) 
NEXT D 

CALL COLOR(2,8,16) 
CALL COLOR(9,11,16) 
CALL COLOR(10,14,16) 
CALL COLOR(11,10,16) 


CALL COLOR(12,5,16) 

CALL COLOR(13,13,16) 

FOR TE=1 TO LI 

NEXT TE 

FOR D=i TO 19 

CALL HCHAR(D,1,32,28) 

NEXT D 

CALL KEY(0,K,S) 

IF S=0 THEN 1330 

IF S=-1 THEN 1330 

IF (K>48)#(K<56) THEN 1380 
GOTO 1330 

CALL HCHAR(RR,31,K) 

CALL SOUND(100,K#10,10) 
RR=RR+4 

IF RR>19 THEN 1420 ELSE 1330 
RR=3 

CALL GCHAR(3,31,M) 
MM=ASC(STR$(CE)) 

IF M=MM THEN 1460 ELSE 1660 
CALL GCHAR(7,31,N) 
NN=ASC(STR$(GI)) 

IF N=NN THEN 1490 ELSE 1660 
CALL GCHAR(11,31,0) 
DOSASCISTR$(VI)) 

IF 0=00 THEN 1520 ELSE 1660 
CALL GCHAR(15,31,P) 
PP=ASC(STR$(R0)) 

IF P=PP THEN 1550 ELSE 1660 
CALL GCHAR(19,31,0) 
QO=ASC(STR$(BL)) 

IF Q=00 THEN 1580 ELSE 1660 


CALL SOUND(300,831,10,523,10,622,10 


67 


=== ff 


1590 RIS=RIS+1 
1500 RI$=STR$(RIS) 

1610 FOR D=i TO LEN(RIS) 

1620 L=ASC(SEG$(RI$,D,1)} 

1630 CALL HCHAR(23,(21+D)-LEN(RI$),L) 
1640 NEXT D 

1650 GOTO 1770 

1660 CALL SOUND(200,-7,10) 

1670 MM=ASC(STR$(CE)) 

1680 NN=ASC(STR$(GI)) 

1590 DO=ASCISTR$(VI)) 

1700 PP=ASC(STR$(RO}) 

1710 GO=ASC(STR$(BL)) 

1720 CALL HCHAR(2,30,MM) 

1730 CALL HCHAR(6,30,NN) 

1740 CALL HCHAR(10,30,00) 

1750 CALL HCHAR(14,30,PP) 

1760 CALL HCHAR(18,30,00) 

1770 QUE=QUE+1 

1780 QU$=STR$(QUE) 

1790 FOR D=i TO LEN(QUS$) 

1800 U=ASC(SEG$(QU$,D,1)} 

1810 CALL HCHAR(23,(10+D)-LEN(QU$),U) 
1820 NEXT D 

1830 IF QUE=20 THEN 1840 ELSE 550 
1840 PRINT “FINE GIOCO 
PREMI G PER GIOCARE 
LUDERE* 

1850 CALL KEY(0,K,5) 
1860 IF S=0 THEN 1850 
1870 IF K=71 THEN 10 
1880 IF K=70 THEN 1900 
1890 GOTO 1950 

1900 END 


O F PER CONC 


Flush 


Una invasione di formiche è in atto! 

A vostra disposizione per cercare di bloccarla 
non insetticidi, ma acqua. 

Istruzioni complete contenute nel listato. 


1 REM «+» ** 
2 REM =» Pole uu Sn *%* 
35 _REM =*£* ** 
4 REM xx Z%X - SPECTRUHN *x* 
S REM =£* * * 
5 REM +** 1656K € 485Kk * * 
# REM x*x ** 
S REM +#x* io E aa e a DS ** 
S REM *x xx* 
10 REM 

12 BORDER ?: PAFER P?: CLS 

15 POKE =3655,5 

15 GO SUE SsScaoa 

20 LET reci=@d:; LET (ecQ2=a04:; LET 

reci=@ 


25 LET ns=e"B0b": 
LET Uusgpae dI 


LET d$="SUSv" 


se BORDER S: FOR k=b TO 24: LE 
T jJ=USR 3582: BEEP .Q09S,k: MEXT 
k 

4+4@9 PRINT AT 213,5; ISTRUZIONI *? 

(S/N) 

SO INPUT r% 

60 IF r$="'5S" THEN GO TO ?0@ 

65 IF rs$gs="N" THEN GO TO 100 

6S GO TO SQ 

70 BORDER FF: FOR k=9 TO 24: LE 
T j=sUSR 3552: PAUSE 1: MEXT K 


SCOPO DEL GIOCO E 
CHE DELLE FORMICHE 


oe LET a fa- 
* DI EVITRRE 


RIESCANO A SCAPPARE  INNAFFIAN 
DOLE? CON UN GETTO DI ACQUA CONT 
ROLLATO DA UCI MEDIANTE UN RUE 
INETTO., TRE “FUGGITIVE:' A 
MMESSE." 

81 GO SUE 7100: PAUSE 1060: CLS 

LEI +=” RAGGIUNTO IL ’TETT 
o DET 2009 PUNTI AUMENTANO ,.,PER U 


FICOLTA'." 
PAUSE 100: 


orta Rie 


s9 GO SUE 7100: CLI 


LET is="COMANDI = 1 SINISTRA 
2 DESTRA 
a /ACGUA" 
Sa GO SUE 7l00: PAUSE SO: PRIN 


Attenzione! Digitate le lettere tra virgolette 
dopo essere entrati nel modo grafico 
(Graphics). 


T "PREMERE UN TRSTO PEF: INIZIARE 
“i PRUSE 
100 CLS LET pu=@t: LET vVite=s=i: 
LET qaA=109:; LET a4%$="A6B 
CO 
Aa 
GHI 
IKL. Star SET 
b$=" MIN 
OP Ci EET Ceto! 
119 INPUT AT 12,0; " "LIVELLO (C1l=d 
i ff. 7 Suefactilel"'; Lg 
12© IF ld:<:1 OR ld>;35 THEN GO TO 
119 
139 IF td=1 THEN LET d=.1 
140 IF l1ld=2 THEN LET dse.,& 
158 IF ((Wd=3 THEN LET d=.9 
1609 PARPER 5: BORDER 5: CLS 
1709 PRINT AT @,3;53% 
199 FOR i=19 TO 6 STEP -1 
200 LET e=INHT (RND=>501 
219 PRINT AT i,€;b5 
215 PLOT 2,909: DRAL 255,8: DRALI 
O,135:; PLOT a,a: DRALU OS, 1355: GRA 
JU 255,0 


222 BEEP d.,i 

2509 IF INKEYV $="l" 
GO SUE 4daaa 

249 IF INKFEY&="2" 


AND 94: THEN 


AND a:29 THEN 


GO SUE Sana 

259 IF INHKEW$="@" THEN GO TO 6£0 
(aa) 

250 PRINT AT i.e; " ‘i: PRINT A 
1° Lee 17 ut 

279 NEXT i 

S009 LET VYVite=sVvite-l: IF vVite=s@ 
THEN GO TO &500 

3505 BORDER ?: PAPER ?: CLS PR 
IHT INK Si; "ATTENTO! LUNA FORMICA 
E -*FUGGITAI """“"UITE "ivitea "PUNTE 
GGIO "i;ipu: PRINT '"'PREMERE ©CG' PE 
RO CONTINUARE "' 


305 PAUSE 


S1@0 IF INKEW$="C" THEN GO TO 216 


[a 

315 GO TO 305 

+40290 FOR hse TO S&; FRINT AT h,Xdi 
Dì “i NEXT h: LET qa=q0-1: PRINT 
AT Q,g3A;a2$: PLOT @,455: DRAU 255 


+9: RETURN 
Sa0aa FOR h=s© TO 5: PRINT AT h.,gd;i 
e “i NEXT h: LET q=q+1: PRINT 
AT O,g3A;25:; PLOT @, 155: DRAU 255 
pa: RETURN 

[tà] FOR f=65 TO S1: 

BEER: Db fa 

È ne eee ue 


PRINT AT F;,q4 
PEREIINT AT f.,Qqa+ 
PRINT AT 21,g4+5;" 


La i+G=ee 0R qoai=ee+1i OR 
GO TO Gaia 
TO 2650 
x=1 TO S; PRINT AT i,25 
BEEF .S,xX: PRINT AT i 


pie jet! “e NEXT x» LET puospusti #2: 


q1+5= 


miomn 
+ 
fui 
mi 
I 
m 


5OazaA 


(9) 
ri 
01 
Ti 
[ni 
Il 


Q4 © 
TO 
ese FOR 
“BONUS": 
8 SE Ri va 


CR pu>="50 THEN 6G 


PRINT AT 219 
-DWDI1B.,L: PRINT AT 


e MON 


PRINT AT 189, 
IF INKEYVS=-"@" 
GO TO PRINT AT 19,ri 

PRINT AT 20,r;" Li; 
5OGI NEXT rr: PRINT AT 19,27?;"' 

PRINT RT 209,37; " = 
5062 LET m=enh+1: IF n<5S THEN 
>} b6a06a 


in 


ib: BEEP. 


THEN 


GOT 


51909 GO TO 160 

52090090 FOR z=6&6 TO 209: PRINT AT Zz,49 
+9; CS BEEP .dB1,z: PRINT RAT Z.:qdÒ+ 
Sp Mae NERO PRINT AT 20,945; "' 
Sz219 IF «a+35=r CR g3r3+4S=r+ti1 OR q+i= 

+2 THENI GO TO S&2506 

5228 PRINT MT 195,r;" ‘i PRINT 

AT SA;ri See ESP PESsnie9iL.s EP ras 
THEN GO To &ASA GO TO 1564 


Mi 


FRINT AT 193,r 
PRINT AT 
LET puspu+sa 
ment L: IF n5 THEN GO 
GO TO 1660 
=) FOR: fail TO ac GEEF AQ, 
BEEP QD, di, sd; BEEP MD, 2, 
BEEP 0.6, -24: BEEP @&.4,-21: B 
P_I.,2,-22 BEEP M.d ,--22: BEEP 
2, 24: GEEEP QdD.d ., 2: BEEP 0.2, 
Si: BEEP 0.656,24: NEXT FF 
= 5 
ui 


31° Li 


OMNMpoaogooaonk 


Ul 


dino aime 


14 PRINT *© PUNTEGGIO FINALE " 


2 IF nil pi Lt 
recl=pU: 
ped] ad | e e 
RO TO 
Ld 
lEeCca=plu: 
RECORD": 

GO TO 
did9 IF Lld=3 


Ld=1 AND pu 1 THEN L 
PRINT FLASH 1; "NUO 
INPUT ©’ "NOME PREGO "; 
Fa 

=2 AND pussre ca THEN L 
PRINT FLASH Li "IU 
INPUT ‘"NCME PREGO "; 
PADO 
ANO 


0Mma 


du 
D- 


Uma 


tà o 


FEED de 


br 


puUu>ss=sreci 
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4 


EL A 


NTÙ 


ba 4 


PRINT FLASH 
DC RECORD": INPUT "NOME 
Us: GO TO 7000 
5ss&a PAUSE 100 
Pa8a0a CLS BORDER Fi: 


ET rcecs=PpU: 3 RHUYIOLU 


PREGO "; 


FRPER ?: CL 


Sr PRINT "A0dcd rici i ia dd dda 
SEIdgcdadagoo e; FOR isl TO 24: FRI 
uc "O*;/TAB SLbgy"@"e NEXT 1: ‘PRINT 


eine 
da" 
Q109 PRINT AT S5S,& INK ©; 
li THE CHAMPIONS" PRINT 
7092048 PRINT INK 1;AT ?,3; 


FLASH 
PRINT 
“CATEGOR 


IA 1": PRINT AT 8,35;" ireci 
Ple ‘is 

7059 PRINT INK S;AT 1@,5; ' CATEGO 
RIA 2": PRINT AT 121,5;" "ireca 
Edda "id 

7049 PRINT INK S;AT 13,3; ' CATEGO 
RIA 3": PRINT AT 14,3;" SI pil - 
i © "i 6 

705 PRINT AT 218,1; ' PREMERE LIN T 
ASTO PER RIGIOCARE": PAUSE © 
F79sSa CLS LET vitea= LET pusoa: 
GO TO 119 

7100 LET n1=9: LET n2=9:; LET xesL 
EN i» 

71109 FOR k=1 TO x 

120 IF n&<52 THEN GO TO 71490 

71534 LET nleh1+1: LET n2=0 

7149 PRINT AT ni,n8; ITNK 0O;a" 

71509 6EEF .0109,FNC «SO 

7162 PRINT AT n1,Nh2;i$(k1): LET n 

S=n2+1 

PFI70 NEXT Kk 

7150 RETURN 

S000 FOR uUsUSR "a" TO USR "q'+7: 
READ vi POKE uU,v: NEXT uU: RETUR 
N 

S018 DATA 0,0,35,206, 156, 156,202, 
15 

8020 DATA 0,9,0,204,54,54, 76,192 
S8959 DATA 4,5,5,3,6,26,20,55 
8040 DATA 1285,0,0,0,1285,96,52, 16 
80509 DATA S6,56,56,55,56,36,56,4 
? 

80509 DATA 165,16, 16,165, 15, 16, 16,2 
[es] 

S070 DATA 127,112,45, 395 .,40,56,54 
1,35 | 

5080 DATA 248,55,16,205,65,0,127 
13128 

59909 DATA 20,0,0,0,0,224, 220,54 
81009 DATA S6,435,44,4858,31, 12,127, 
220 

S1109 DATA 127,255,0,51,224,64, 24 
8,12 

8120 DATA 145,201,229,22£9, 127, 12 

7,126,0 i 


S159 DATA 
sS1409 DCRTA 
9,225,2465 
5159 CATA 
129,0 
S1569 CATA 
126,0 

S179 CATA 
(ia) 


Si Z,13,d, 2277, 159,135',.31 
192,224, 192, 126,199, 24 


103,143, 147,59,71,1351, 


230,241,291,2268,226,19 


5,24 ,26,dd,785,94,126,6 


Equazioni di 1° e 2° grado 


Questo semplice programma è dedicato ai più 


piccoli fra i nostri lettori che oltre ad imparare 
le semplici equazioni di primo e secondo 
grado, potranno scoprire l’uso del proprio 
ORIC | nell’ambito matematico oltre a quello 
consueto dei videogiochi. 


1 REM#####4#H#H#H#HHH#HH#HHHHHHHHHHHHHHH#H 
2.REM# # 
3 REM®# Risoluzione di equazioni # 
4 REM# dì primo e secondo # 
5 REM& grado, # 
6 REM# # 
2 REM# di F. RUSSO list-1985 # 
8 REM##4##t##H##H##H#HH#HHHHHHHHHHHHHHHHH# 


10 CLS:PRINT :PRINTCHR$(17); :PAPERO:INK]1 
80 FORT=0T07 

908 PLOTO,T,17:PRINT 

100 NEXTT :PRINT :PRINT 

118 PRINTCHR$(4);CHR$(27)+"J 
NI DI PRIMO E SECONDO 

114 PRINT :PRINT :PRINT 

1208 PRINTSPC(14);CHR$(27)+"JGRADO" 
130 FORT=19T026 

142 PLOT®,T, 18:NEXT 

150 WAIT290:PRINTCHR$(4) 
180 CLS 

190 PLOT2,10, "Equazioni 
PIREO fe: Gai 3 

200 PLOT2,12, "Equazioni 
avena 29 


EQUAZIO 


di primo grado.. 


di secondo grado 


70 


210 
215 
220 
230 
250 
500 
510 


PLOT109,25,"Immetti 
GETA$ 
IFA$="1]1"THENS00 
IFA$="2"THEN10600 
GOTO215 
CLS:A$="EQUAZIONI DI PRIMO GRADO 
GOSUBS000 

520 CLS:PRINT :PRINTSPC(14); 

532 PRINTCHR$(4);CHR$(27)"JAX+B=0@"CHR$(4 
ICHR$(17) 

540 PRINT :PRINT"------------------------ 
——_---------a ":PRINT 

550 PRINT:PRINT:INPUT"A=";A 

560 PRINT:INPUT"B=";B 

570 H=520:G0SUBS100 

580 GOSUB5040 

590 X=-B7A 

500 PRINT :PRINTCHR$(4)CHR$(271"IC "A")Xt 
("B")=0"CHR$(4) 

610 PRINT:PRINT:PRINT:PRINT"La soluzione 
e?:" 

620 PRINT :PRINT 

630 PRINT "X="X 

640 GOTOS5150 

997 REM 

998 REM 

999 REM 

1000 CLS:A$="EQUAZIONI DI SECONDO GRADO" 
:G0SUB5000 

1010 CLS:PRINT:PRINTSPC(12); 

1922 PRINTCHR$(4) ;CHR$(27)"JAX=2+BX+C=@" 
CHR$(4)CHR$(17) 


la scelta" 


10830 PRINT:PRINT:INPUT"A=";A 

1940 PRINT=:INPUT"B=";B 

1050 PRINT:=:INPUT"C=";C 

1860 H=1519 

1270 GOSLBS100 

1899 GOSUB5040 

1130 2=B72-(4XAXC) 

1140 IF2<QTHEN1300 

1150 X1=(-B+SOR(2))/(2XA) 

1160 X2=(-B-SQR(2)}/(2XA) 

1165 PRINT :PRINTCHR$(4)CHR$(27)"“J( "A")Xx 
22+C0 "B"IXt( "C")=0"CHR8(9) 

11672 PRINT :PRINT 

11720 PRINT:PRINT:PRINT:PRINT"Le due solu 
zioni sono:" 

1175 PRINT :PRINT 

1180 PRINT"X(13)="3X1 

1185 PRINT 

1190 PRINT"X(2)=";X2 

1135 PRINT :PRINT 

12@0 PRINT:PRINT:PRINT"IL discriminante 
e’ uguale a:" 

1210 PRINT:PRINT2 

1250 GOSUB5150 

1300 PRINT 

1310 PRINT"L’EQUAZIONE HA SOLUZIONI IMMA 
GINARIE" 

1315 PRINT:PRINT“IL DISCRIMINANTE E? 
ALE A:":PRINT:PRINT2:PRINT 

1320 PRINT:PRINTSPC(12)"RIPROVA!®" 


UGU 
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NN 


Ì 
è 


VRZAZAZZI 


SOS 


. ” 

liste menteneetto tenia tette 
Dai nerope so? cori ano dress dee sen tre 
CIC a e delia a e ei a 


2 si. non” all'oo 


1330 WAIT309:G0T0180 
1499 REM 

5200 PLOT9; 13,19 

5010 PLOT19,13,A$ 

5020 WAIT209 

5830 RETURN 

5937 REM 

5938 REM 

5939 REM 

5040 CLS:PLOT@, 13, 17:PRINTCHR$(17) 

5950 PLOT15, 13,32 

5260 PLOT1,13, "ADESSO CALCOLO" 

5070 PLOT16,13,16 

5980 WAIT 100:CLS 

52909 RETURN 

5097 REM 

5098 REM 

5999 REM 

5100 PRINT:PRINT"SONO ESATTI SI O NO (S/ 
N)? "; 

5119 GETA$ 

5120 IFA$="S"THENRETURN 

8138 PRINTCHR$(17) :POP :G0TOH 

5147 REM 

5148 REM 

5149 REM 

515@ PLOT7,;25, "Premi RETURN per continua 
re" 


5160 GETA$ 


‘51720 IFASC(A$)=13THEN180 


518@ PRINTCHR$(17):CLS :END 
5190 RETURN 


Semina 


Il gioco si svolge su una tavola con 14 buchi 
disposti in forma ellittica, 6 per ogni metà 
della figura e 2 che serviranno a contenere i 
semi raccolti dai giocatori. Il computer 
rappresenta l'avversario. 

All’inizio le file opposte di buchi contengono 3 
semi ciascuna e lo scopo del gioco è quello di 
prendere i semi da uno dei propri buchi e 
porli, distribuendoli uno ad uno in senso 
antiorario, nei buchi successivi. 

Ripetendo più volte l'operazione si deve 
riuscire a depositare il maggior numero di 
semi possibile nel proprio buco-magazzino. 


lì REM KKKKKAAKKAKAKAAKKAKK 

2 REM Kk Kk 

3 REM x SEMINA X 

4 REM Kk Ki 

5 REM KKAKKKAKAKAKAAAARA 

6 REM 

2 REM #### INIZIALIZZAZIONE #### 
8 REM 


9 PAPER4:INK3 

10 DEFFNACX)=X+t14X(X> 14) 

15 DEFFNE(XI)=(X<8710RCX> 13) 

17 DEFFNX(X]=AC1)+A(2)+AC(3)+AC4)+AC(5I)+AC 
6) 

18 DEFFNY(X)=AC(8)+AC9)+AC19)+AC(11)+AC12) 
+ACISI 

19 DEFFNR(X)=RNDC(91X5-2+X 

20 DIMAC(14);B(4, 14) 

30 FORI=1T013:AC(I3=3:NEXT :AC(2)=0 

48 PRINTCHR$(12)CHR$(172):PLOT13,109,"S E 
MI NA":PLOT12,; 10,12 

60 WAIT400 

65 GOSUB4005 :PRINT :PRINT :PRINTCHR$(172); 
29 PRINT"UVuoi cominciare a 9iocare? "; 
80 GETè®$:IF2$<>"S"THEN360 

300 FORU=1T02 

303 GOSUB4000:PRINT 
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Le regole non terminano qui: se al proprio 
turno si riesce a guadagnare un seme, si 
guadagna la possibilità di ripetere la mossa; 
se l’ultimo seme spostato ricade in un buco 
vuoto, allora si guadagnano il seme e tutti 
quelli corrispondenti, nella fila opposta, 
all'avversario. 

Il gioco termina quando una delle 2 file di 
buchi è completamente vuota. 
Probabilmente il gioco potrà sembrare un po' 
complicato, ma in realtà risulterà semplice e 
divertente. 

Buon divertimento. 


305 PRINT"Immetti la tua mossa":INPUTA$: 
U=UVAL(A$) :IFU=BTHEN320 
318 IFFNECUITHENPRINT"TU 
re da 8 a 13":G0T0300 
320 IFAC(U)=BTHENPRINT"Non ci 
i? 2":G0T0300 


puoi solo muove 


sono semi I 


330 X=U:G0SUB2000 

335 IFFNX(@)=@0RFNY(0)=BTHEN5900 

340 IFY=14THENIFU=1THENPRINT"Seconda mos 
Sa iui "NEXT 

345 G0OSUB4000 :PRINT :PRINT 

360 PRINTCHR$(C14); 

365 PLOT1,14, "Un momento prego. ":J4=1:G05 
UBS19 

370 IFFNX(0)=@0RFNY(0)=@THENS200 

380 GOT0O300 

495 REM 

590 REM #### MOSSA COMPUTER ##8# 

505 REM 

502 PRIN® 

510 B1=0:B2=0:B3=0:B4=0:S1=-9]:S2=-91:53 
=-91:S4=-91 

518 PRINTCHR$(17); 

519 POKE#269, 18:PRINTCHR$(17); 

520 FORAIBITOS:IFACA1)=0THENS090 

525 PRINT: 

530 GOSUB1000:X=A1:G0SUB2000:F=@:IFY<27T 


(dI) | 


HENF =1 :G070500 

540 FORA2=1T06:IFA(A2)=2THEN800 

559 6G0SUB1900:Xx=A2:60SURB2000 

590 FORA3=8T013:IFA(A3)=@THEN?B0 

510 GOSUB1000:X=A3:G0SUB2000:IFY <> 14THEN 

6580 

620 FORA4=8T013:IFA(A4)=QTHEN660 

530 G0SUB1090:X=fA4:G0S8B2000:IFAC14)-AC7? 
I>FNR(S4)THENS4=A(14)-A(7): 

B4=A9 

540 GOSLUB1210 

650 NEXTA4 

679 X=B4 :G0SUB2000 

680 IFAC14)-AC72)>FNR(S3)THENS3=A(14)-AC7 
):B3=A3 

685 GOSUB1019 

700 NEXTA3:X=B3:G0SUB2000 

205 IFF=1THEN810 

220 IFAC(2)-A(14)>FNRC(S2)THENS2=A(23)-AC(14 
) :B2=A2 

730 GOSUB1010 

8909 NEXTA2 

805 X=B2:G0SUB2000 

819 IFAC72)-AC14)>FNR(S1)THENS1=AC(72)-AC(14 
):B1=A1 

820 GOSUB1010 

3080 NEXTAI 

310 X=B1:G0SUB2000 :PRINT"La mia mossa e? 
"3B15; 

311 IFFNX(0)=2@0RFNY(0)=@THEN5000 

312 IFY=2THENX=B2:G0SUB2000:PRINT"e 

315 FORI=1T03000:NEXT 

320 PRINT :RETURN 

10020 T=T+1:FOR2=1T014:BC(T,2)=A(2):NEXT:R 

ETURN 

1010 FOR2=1T014:A(2)=BC(T;2):NEXT:T=T-1:R 

ETURN 

1999 REM 

2000 REM #### MOSSA POSIZIONE X ##8# 

2901 REM 

2019 FORZ=X+]TOX+ACX):Y=FNAC(2):ACYI=ACY]I 


+] :NEXT 

2025 ACX)=0:0=-1 

2826 IFY=20RY=14THEN2060 

2230 IFACY)=1AND(14-Y)>@THENQ=A(14-Y)]:A( 
14-YI)=0:AC(Y)=0Q 

2040 IFX<72THENAC(2)=A(2)+0+1:60702060 
2050 AC14)=A(14)+0+1 

2060 RETURN 
3997 REM 

3998 REM ###4# 
33999 REM 
-000. WAIT100 
4005 PRINTCHR$(12):PLOT8,1,2:PLOT0,3,6 
4226 PLOT@,9,6:PLOTO, i1,2:PLOT0,6,2 


"B2 


TABELLA SCHERMO #### 
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«ig VA 


ll 


I9 2: LI 20: D_ _#@ 


4010 PRINT" 
4020 PRINT" 
4030 PRINT" 
TR$CACI)) 

4040 IFLEN(A$)>2THENA$=RIGHT$(A$,2):GO0T0 
4055 
4050 
4655 
4060 


Io 
";:FORI=13TO8STEP-1:f$=S 


Tu 


PRINT" "3 

PRINTAS":"; :NEXT:PRINT" " 
PRINT" <--------------—-- > 
4970 PRINT"---- 

4282 AS=STRS(A(14)):IFLENCA$)) 2THENAS=RI 
GHTSCA$, 2) 

4992 PRINTAS": hi 
=STR$(AC2)M 

4100 IFLENCA$)) 2THENAS=RIGHTS(A$;2) 
4185 PRINTAS": 


AS 


4112 PRINT"---- ---- 
4120 PRINT" KR-------------—- > 
4130 PRINT" Ag 


4135 FORI=1T06:AS=STRSCA(1)) 

4137 IFLENCA$)> 2THENAS=RIGHT$(A$,2):GOTO 
4143 

4140 PRINT" "; 


4143 PRINTA$":";:NEXT 

4145 PRINT 

4150 PRINT" ------------------- 
4160 PRINT" ì ®2 8 # Ss BD 
420@ RETURN 

4997 REM 

4988 REM #88# FINE GIOCO  #### 
4999 REM 

5000 PRINTCHR$(C12) 

5005 IFAC(14)=A(7)THENS100 

5010 IFA(14))A(7)THENS060 

5029 PRINT"Io ho vinto per "A(7)-AC(14) 


5039 GOT05200 
5062 PRINT"Hai 
C-1:49I=AC23 
50809 G0T05200 
51009 PRINT"Abbiamo fatto "A(7) 
5290 PRINT"ULoi giocare ancora?" 
5210 GET28:IF2$="S"THENRUN 

5220 END 


507 PRINT 


vinto2292 Ma solo per "f 


520 FORA1=1T06:IFA(A1)=2THEN9S90 

632 GOSUB1280:X=A4 :G05UB2000:IFA(14)-A(7 
)>FNRCS4)THENS4=A(14)-A(7): 

B4=A4 


4090 PRINTA$": musce 
=STR$(AC7)) 


4120 PRINT" 


Arredatore elettronico 


Questo programma costituisce un esempio di 
come sfruttare le elevate capacità grafiche e 
di calcolo del Commodore 64 in modo 
semplice ed efficace. Si è scelto di operare 
con il SIMON'S BASIC per la possibilità che 
questo TOOL offre di gestire con facilità 
schermi grafici ed alfanumerici 
contemporaneamente e per la realizzazione 
diretta di figure geometriche senza complicate 
routines in linguaggio macchina, che il 
Simon’s permette mediante semplici istruzioni 
basic (di cui il CBM 64 in configurazione base 
è carente). 

Il programma serve a determinare la migliore 
disposizione dei mobili di una stanza 
lavorando sulla pianta di questa, riprodotta 
sullo schermo, ottenendo i vari spostamenti 
mediante joystick. 

Esaminiamo in dettaglio il funzionamento del 
programma. 

Dopo una presentazione grafica (subroutine 
5000-5140) e la richiesta di istruzioni, 
riportate sommariamente nella subroutine 
6000-6210, le linee 58-84 richiedono le 
dimensioni della stanza in esame. La linea 30 
è molto importante poiché definisce la scala 
utilizzata per tracciare la pianta, permettendo 
la riproduzione sullo schermo sia di ambienti 
ristretti che di ambienti più ampi, senza 
alcuna limitazione particolare. Le linee da 100 
a 342 definiscono lo schermo grafico 
dividendolo in due aree: a sinistra viene 
limitata l’area di lavoro entro cui realizzare la 
pianta della stanza, a destra vengono 
riprodotti i quattro tasti funzione presenti sulla 
tastiera del CBM 64, debitamente abilitati. 
Inizialmente la pianta della stanza è 
rappresentata da un rettangolo chiuso; 
l'utente deve completarla inserendo porte e 
finestre, come discontinuità, nelle linee che 
definiscono le pareti. E possibile, inoltre, 
modificare la pianta data inserendo angoli e/o 
rientranze, per rappresentare ambienti dalla 
geometria più irregolare (ad es. corridoi con 
sviluppo a L). Per fare tutto ciò occorre 
disegnare o cancellare linee; nel primo caso 
si deve premere il tasto F1 e, mantenendo 


questo premuto, spostare il joystick nella 
direzione voluta, mentre per cancellare si 
dovrà premere il tasto F3 e, manovrando il 
joystick, portare il puntino cursore, 
inizialmente alle coordinate 100, 100; sopra la 
linea da cancellare. 

A questo punto ripassando sopra detta linea 
per il tratto corrispondente alla lunghezza 
della porta o della finestra che si vuole 
disegnare, si ottiene l'apertura della linea. 

Per distinguere la porta, o le porte, dalle 
finestre, è possibile stampare una P davanti a 
questa/e, premendo F7, posizionando il 
cursore davanti alla relativa apertura e 
premendo il tasto di fuoco, (subroutine 
4000-4120). AI termine del disegno della 
pianta, premendo F5, il computer chiede se il 
disegno è soddisfacente: in caso di risposta 
negativa si ricomincia daccapo, altrimenti il 
programma procede ridefinendo tutti i tasti 
funzione. Si può ora iniziare ad inserire i 
mobili. Le linee da 350 a 530 riportano sullo 
schermo le nuove funzioni dei tasti, mentre da 
600 a 694 il programma procede 
nell’acquisizione della forma e delle 
dimensioni del mobile. Le linee da 700 a 840 
posizionano il mobile; una volta inserite forma 
e dimensioni, si torna allo schermo grafico, 
per cui premendo F3 è possibile porre il 
cursore nel punto in cui si vuole posizionare il 
mobile; raggiunta la posizione è sufficiente 
schiacciare il tasto di fuoco sul joystick per 
visualizzarlo. Nel caso di mobili circolari, la 
posizione del cursore rappresenta il centro, 
negli altri casi l'angolo superiore sinistro. 
Nell’introduzione dei dati relativi al mobile, per 
una rappresentazione ottimale è bene 
introdurre la dimensione maggiore come 
lunghezza e la dimensione minore come 
larghezza. Premendo F5 è possibile ruotare di 
90 gradi verso il basso l’ultimo mobile inserito, 
mentre con F7 è possibile spostare con il 
joystick un qualsiasi mobile già posizionato 
(linee 2000-2340). Premendo la barra 
spaziatrice si accede ad altre ‘opzioni’ 
ottenute ridefinendo ulteriormente i tasti 
funzione. 
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ARIA 
n 


Le linee 3000-3120 evidenziano le nuove 
opzioni: con Fi il programma riparte per 
ottimizzare l'arredamento di un nuovo 
ambiente; con F3 si chiude il programma. 
Premendo F5 è possibile ruotare uno 
qualsiasi dei mobili già disposti (subroutine 
7000-7070), mentre la barra spaziatrice 
riporta al menù precedente. 

Il programma, facendo ampio uso di istruzioni 
grafiche e dei tasti funzione, permette di 
gestire abbastanza facilmente il disegno su 
schermo di arredamenti, ovviamente molto 
semplici. L'unica accortezza che si richiede è 
di non sovrapporre linee, poiché in caso di 
cancellazione di una di esse, vengono 


1 FEM abb 
REM #* $ 
3 REMO # ARREDATORE ELETTRONICO M 


4 REM * + 
SREM # DIO MAURO CIFGHI & 
S REM »* % 


REMO AEEEEEIE EEE ERE 


Ss FEM * PER COMMODORE 64 # 
?è REM #* * 
in REM * COH STMON*S= ESSI # 
ii REM * ET UH SOYSTICE * 


12 REM SREFRELEERRRIA RE ERRE 
15 GOSUESAGO 


20 PRINTUONUDI LE ISTRUZIONI €5#M3" 


ee GETAS IFRE=""THENZM 
4E1 “HW "ANDAETI "5 "THEHGA 
SG © "THENGOSUPBGAOA 


So REM ##&#IMPUT DIMEHSICHI 44% 


: PIMRI CSI. Ria 
sua Fizaa, 4 

nei PRINT “SEMI SERIE ALT LE DIMENSICHI DELL 
4 STAMZA”" 
sa PRIMT'COMSIDERANMDOLA DI FORMA RETTAHIO 
DIARE: 
53 PRINTULA LUBSGHESSA DEVE ESSERE MAGGIO 
PE DELLN" 
54 PRINT'LARGHEZZA,. CORREGGERAI IH SEGUIT 
I 04" 


st PRIBTUIL JSOFSTICE LA FIANTA. INSERENDO 


425 LINE 253, 159,2, 


conseguentemente cancellati tutti i loro punti 
comuni. Come ultima possibilità del 
programma aggiungiamo che si può ottenere 
anche una stampa su carta della pianta una 
volta concluso il lavoro. Ciò è possibile solo 
con una stampante Commodore mod. MPS 
801; i possessori di tale modello troveranno 
più avanti le modifiche da apportare alle linee 
3100-3110 per poter usufruire di tale ulteriore 
vantaggiosa possibilità. Purtroppo ci risulta 
che altre stampanti della stessa Commodore, 
vedi la MPS 802, a causa di un diverso 
interfacciamento non accettano le istruzioni di 
HARD-COPY da video quando si usa lo 
schermo grafico. 


67 PRINT'EVENTUALI IRREGOLARITÀ" DI FORM 


ca FR TNT AIMeInTe]a[eTn]sta]eteleTatathLIMGHESZA SIH OM 
AT pr CIH M 
72 PRINT RMLARG HEZZA € IH METRI 

35 IMHPUT'OLARGHEZSSA € IH METRIS: "LA 
PRINT'MMSINSI DATI SONO GIUSTI? «57H}® 


Li] 


GETEZ: IFRE=""THEHSM 
* IFE*="HTHEMPEIHT"T] 
‘CGOTOGE 


TO do Di i 
ho 


84 IFE8C>"S"THENSO 
86 REM #4*HOFMALIZZAZIONE DATI**# 
sa 1 M=INTC1S9/LUS :LUI=LU#M:LA1=LA#M 
38 F ti ##4TRACCIA FPIANTA**4 

49 


16060 POEESSA, 125: PRIMNTUIU@COLOUE 12, 12:HI 


PES dB, 12 
116 LIME G,6, 255,60, :LINE 255,0, 255,196, 
15 LIME 2,2, 2055,2.1:/LINE 253,2,252, 185, 


26 LIME 255, 190,60,190,1:LINE 6, 190,0,0, 


130 LINE 245,10,2 
3 .1.1,8 


ds 10+M, TEST 235,20," 


125 TEAT 235,20, SM pai 1,8 
146 BLOCE 260, 0,315, 0, 1:BLOCE 260,50, 31 
Garli, 1 
156 BLOCE 266, 160, 315,120, 1/ELOCE 260,15 
A, 15,176. 1 
160 TEST 262.8, SUINIZIO”".2,1,8 
165 TEAT 262.11." TRACCIA" se: 1,8 
179 TEXT 262,52. FIME": 2, 1,8 
173 TERT 262.61. TRACCIA". 2, 1,8 
180 TEXT 262.102, "3FINE".2,1.8 
190 TEXT 262.111, "PIANTA". 2.1,8 
TEST 262, 158, "PORTA", 21,8 
REC Sy Qi LU1, LH1.1 


Ho = 160: PLOT 
:GETAS: IFRE=" 
“EUTHEHT=1 

"ITHEHGOSUE4GOE : GOTOZAS 


Mor, 


“THENSAS 


tt] 
Pola 29 
TUEL 


i o Sa i a O 
dj Til om LA LOT 
i 


i Ra Ta) hs dhipa PIraifohia- 


G7 IFRE="9"THEHNT=2 

GS IFR$="iN"6THENS10 * 

269 PLOT Ma. t,T 

219 IFJOY=1THEHY == 1 | GOSUELOAG :GO0TOZOa 
26 IFIJOW=2THENY="= 1 E=M+1! GOSUBIAGO : GOT 
Deds 


230 TE-JOV=STHENK=X+ 
240 IFJOW=4THEM=' Li VeV41* GOSUBIAI 
D2Z43 
256 IFJOV=STHEMY="+1 


ze6a IFION=eTHEHY="t+1 


! GOSUE LAO GOTOZOoS 


SUELGGA : GOT 


DA=I gel! GO 


OZ 

270 IF.IJ0OY=7THENA=M=1:GO0SUBIAGO : GOTOZAI 
250 IF.JOT=STHEHA=EH<1Y=-1:GOSUBLOAO: GOT 
DZAS 

SPA GOTOZIA 

310 TEXT 5,191, RL (52H5":1,1,5 

az GETAE: IFR$=""THENS26A 

330 IFAS="N"THEHIBE 

340 TIFRET2 "55" THENSZO 

342 BLOCE 5,191,50,1959,40 


È REM #44 IHSEFETMENTO MOBILI%# 


dii 
OE 2 na 26a, 6,319, 20,6:/ELOCK 260,50,31 


= 
Sa 


a BLOCK 260,15 


me 
Coal 
3 


6, a, 315.260, 1:ELOCE 260,50,31 


DO 


cai 
ii Lia Ji LIE 


s 

Hi 

Sua, 

350 ELOCE 260, 160,319, 120, 1:ELOCE 260,15 
Gi, zi2.,l7A,1 

3909 TEAT 262 2, SIINSER,".2,1,8 
400 TEST SES 11, "MOBILE" »2,1:2 
418 TEST 262,52, WPOSIZ,. "2.1.8 
4204 TEAT 262,61. MOBILE". 2,1:8 
420 TEXT 2625, 1602, CRRUOTA".Z, 1,8 
440 TEAT 262,111. ‘WULTIMO" sd:1,8 
450 TEST 262,152, "ESPOSTA". 2, 1,2 
460 TEAT 262, 161, MOBILE" s2:1,8 
462 TEXT 262,173, SSPAZIO:",.1,1,8 
ded laid 262, 151, ‘ile MENU ti 1,6 


(i B&="":GETES: IFB#=""THEN47@ 
IFF$=""THEHGOSUEGAG :GOTD47?A 
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490 IFE#=""THENGOSUE?AA : GOT0476 

SG TFES= "IR THENGOSUBSSA : G0T04?6 

516 IFE$="NN THENGOSUEZAGO : GOTO470 

Set IFE&=" 'THEHSGGG 

Sad IFE$<> CRUANDESCO 8 ANDESCI "IN ANDES<CI 


CAUANDESCI" ‘THEH470 


REN ###IHPLT DIM. MOBILE###% 

CSET G:I=I+1:H=H+1 
PRINT'IDENOMINAZIONE DEL MOBILE?" 
INPUTT$£ I) 

PRINT'OFORMA DEL MOBILE!" 
FRINT'NBMNMACR]NM RETTANGOLARE" 
PRINT'MMA(C]® CIRCOLARE" 
FPRINT'MMACE]® ELLITTICA" 

i PRINT'NMSPREMI IL TASTO CORRISPONDIEN 


Dt, Role o E Do Tn 


mM nino nn mamo on in 
2 


n TA DO £ MLA I ae 0 DI 


O GETC£:IFC#=""THENG4a 
6 IFC$="E"THEMSF® 
655 IFC$="E"THEH66S 
660 IFC$03"CTHEHGA4G 
66 F<De2: INPUT MMBRAGO TO € IM Me SARRI 


Pie Das IHT Redi 
664 GOTOE&SA 
ses Frli=2:IMPUTIBIPSFEARGGIO 1 
PRIRISIO=INT RASOI 
666 IMPUTEAGGIO = 
HT RE*MO: GOTOSSA 


FX I3=IHTCR#M3 
VIN M.3= 


CIH Ph. 05= ‘“(RE:PR2I3=I 


GA Fr[i=1t: INPUT UNSMMO LIMGHESSA CIH M,3= 0" 
sHH1T5= HT C/H&Mi 
672 INPUT 'BLAEGHEZSZA £IM P.le 'ikK:K1C1) 


=THTCK*M3 


666 PRINTUMI DATI SOHO DES c&2H)5" 
ea GETTRE: IFDIS="THEMNEZS 

fi IFIE="HNTHEMGIA 

2 IFD$>"S"THEMSSS 

4 CSET 2:RETURN 


REM &&&POSTE TOHE 


MOETLE##4 


«=100: T=1096 PLOT LY.1 
PLOT K. 1.2 

IEITC 0Y=1THENY=""- ; 
IFIOT= THEM] 


EEN 


!GNSUE GA: GOTO?709 
43 * 1: GOSUELAAG: GOT 


Ei 
(Fai 


PASTO TTT TT 


IF) To vr 2 THEHH = +1 : al 15 n° 1 ie 16: 
IFIOV=4THEMM=b+1 W=W4+1 !GOSUBIAGO 


GOT 


TFIOY=STHEM#= +1 GOSUBI AGE !GOTO?O9 
AI 'sETHEHYT="T+1/#=#- 1: GOSUBLADO :GK0T 


Fa) 


Don 
5 O ATA IO II 


14 


 IFJOVS7THEN=%- 1 /GOSUBLOGA: GOTO709 
IFIOnS STHEHZ=E=1 2-1 :GOSUELGAG :G0T 


434 


LI 
3h" IFIJOY=1Z2THEHF9A 

727 GOTOF10 

790 ON FCIDGOTO792, 733 
Paz Wili= e DI REC 
CI SE :TO (734 

792 KCII=kM:WCI>=H:CIRCLE KCI 
aRZCII.1 

P95 GETAS:IFAS="" 


Hot or È LAOS E LOT IO 


UD 


ACIS, CID. HI CT, K1 
da WC(I3,R1CID 
"OK? S/N" 1.1.8 
THEHPAS 


PIE IFR$= "HU THEHSSE 
pat TFREC3>US" Di, 
795 PLOCE S.191, 
SAG ELOCE S, 159] 4 
GIS OH Fo IO GOTOSZO, SF 
Se REC K£ TI, WC Ti, Hic Iò 
3 GIRELE: Act i SCDRICI 
i GOTOTES 


A RETURH 


Se du CHF TIGOTO91O, 350 

TEFLATSTHENSAG 

EC SC 13,15 H1150E1C DG 0:REC Kc 
113: H1 13, 1:FLCT3=1: RETURN 
TAI (I ELCT3,HICIO.GUREC Kc 
a ved HI eT3 161% 1:FLCI)=G:PETUPA 
459 IFFLCT5THEMHOFEA 
IE9 CIRCLE CT, M£Ta 
E scI3I,tH(I5,R2 


Pi ai E CFA CI 
SILG.PICTi 


907 
1: FLCTISICR 


I: CIRCL 
CETUEH 


af CIRCLE KI}: W#1),FP213,R1I3, 6: CIRCOL 
E sc1), Vel». R1iCIO,RSC151:FLATI=0 RETURN 


dI 


REM ##*# CONTROLLO DEL TOVSTICKK## 


10500 


IFAASTHEHE=5 PLOT #4 1 RETURH 
Sailor, GA: PLOT Meta I'RETLURH 
IFYCESTHEMY=E: PLOT: :RETUEH 
IFWX15THEHY=197: PLOT. su, 1L'FETURH 
FLOT #.. 1 :RETURH 


PROT] 
si ui > di 


AT 
mi Dada cn 


20 


LI hont nti de pen pen n n LE 
ov fi aca Bi cx ù 


11 
ele $ 
953 REM ###5POSTAMEMTO MOBILIS** 
GAS: | 
2006 CSET A/FRIMNTUOMMOEILI FINORA DISPOST 
Ii" 
2016 FORISITOH 
SAZ0 PRINTI.T$13:PRINMT 
2639 HEST 
204a _PRINT'EMSEATTI IL NUMERO CORRISPONDE 


Mio" 
POSA PRINT'EILE CHE VUOI SPOSTARE" 

2066 NU=6: INPUTHU: IFHU=&THENCSET 2:FETUR 
Hi 
2070 CSET 2:/0HF (HU GOTOZE7S, 2085 
2075 IFFLCNU>THEHZAS2 

2080 REC MCMUS, WCHUS, 


Hi HU, E 1 CHO, 6: GOT 


EMULE HU, HI NU 9 GOT 


È bove Hu), F1 HU, REC LIA 
2095 CIRELE | SENIO, CHL) R2CHUI, PI CHL, 6 
2100 | sEMLID Wi HS PLOT Ka. t,1 

Da) PLOT Mata 


260 IF.JOY=1THEHY=7-1:GOSUPIABG :GOTOZIIA 


2130 IFJOY=STHENY7="-1:X=k+1:GOSUBIGGE: GO 
TOZIAIA 
2140 IFJOWSSTHEMM=M+1:GOSUBIGGG:GOTOZIIA 


2156 IFIOY=4THEMA=H+ Nist+1 /GO0SUEIAGA : GO 
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sv Y 


TOZ1I@ 


2160 IFJOY=STHENY=44+1:GOSUEIGOG 


NA xXx 


IGOTOZIIOA 


2170 IFION=Se THEHNY=" +1 /#=Ho 1: GOSUE1 GOG: GO 
TOZIIO 


2150 IFJOY=FTHEHE=H- 1 /GOSUELGAGG:GOTOZIIA 


2196 IFJOY=STHEH#=#1 54]: GOSUE LOG: GO 
TOZIIO 

2200 IFIOY=122THEMZSza 

2210 GOTO2125 


4 DH Fe MUGOTO2ZIO, 2246 
A MCO ii: IFPLa 


% (MU THEMZESZI 
2 REC #CHUS, PE NU, H1 MU, E 1 CHO, 1 GOT 


DA EMI ML E CHI, HI CHO, 1 GOT 


2242 CIRCLE 
GOTOSZo 
2245 CIRCLE RULTPU 
TERT S,191, AK 
GETRE:IFRE=""THENDG 
A IFRE="N' (paria 
IFAEZI3" mE 
ELOCK 
00 BLOCK S,191,560,]3% 

; fi FECHUSGOTI Las E son 
3 IFFLINUSTHENZSPS 
4 REC #CHMU CHL Hi CHL Ed CH: 


NENUI, Ve MILO, RECHUS, RZ A 


Hi cHu> Ra "e Bit RA CHIUSI 
CN) 


',l1s1:8 


GOT 


È REM HS EC HU), H1 CHI, GOT 
2328 ILFLCNU) THEHN2355 

2339 CIRCLE «£NU), NU), Ri GNU), RE GNU, & 
GOTO2I4A 

2335 CIRCLE #€NUI, YeMNUI, R2CNU3, RI (HU, © 
2346 GOTO? 100 

2997 

2998 REM ###ULTIME DPZIOHI #4 

2999 : 


2000 i 260,0, 2318,20,0: BLOCK 260, 50,3 
18. 70 

3010 ELOCK 260, 160,319,1260,0:ELOCK 260,1 
50,315. 170,0 

cine BLOCK 260,0, 318,20, 1: BLOCK 260, 50,3 
18. 70,1 

3030 BLIUCK 2650, 166. 318, 120.1 

3040 TERT 262,2, ALTRA",2,1,8 

3050 262,11, ‘*PIANTA",2, 1,8 

IA60 262,52, "sFIME",2,1,8 

SA7A 262,61, "SLAVORO",2,1,8 

3075 TEXT 262, 1602. SRUOTA",2,1,8 

36369 TEXT 262,111, 'iMOBILE",2,1,8 

3090 E$="": ‘GETBS: IFE#=""THEN3090 

3100 IFB#="l" THEH NRM:FUNSO 

3119 IFB#=""THEH MRM:PRINT'I END 

3115 IFB#="IN""THEN GOSUE7DGG :GOTOIGIG 
3117 IFB#=" “THEHSSO 

3120 IFE$SSI"NUANDESC®" 

>" "THENSO9G 


ANDES<>"IN'ANDESS 


39987: 


2998 REM ##4POSIZIONE PORTA*#% 
3999: 


= 


4a0G = 160: Y= 160: PLOT 
dia PLOT MutLa 
4020 IF.JOY=1THEHY="H'-1 


Ra,l 
!GOSUELAGG : GOTO4GlA 
das IFIOY=2STHENY="#-1/&= 


TO4B1O 
4640 IF.IOY= 


+1: GOSUBIAGA : GO 


STHEHX=#+1!GOSUEBLAGG :GOTO4GLA 
4056 IFJOY=4THEHKM=#+1 
TO4GLO 

4060 IF.JOY=STHENY="+1 


iN=t+1:GOSUELOOG : GO 
/GOSUELOGE : GOTO4G1A 


4076 IFIOY=éTHEHY="T+1/KeW-1:GOSUBLAGG : GO 
TOS4G1A 


4050 IF.I0Y=PTHEHK=M-1 


1 
IGOSUELAGE : GOTO4RIA 


41909 IFIOY=STHEHE=k<< 1 
TOSBLA 

4100 IFJOY=12STHEH4 1250 
4LL16 GOTOg4OAZA 

4120 TEXT 457. 
4397: 

4995 REM ###5TAMFA COPERTINA4%*% 
4999: 

sona PRINT" 

GALA Foce, dd 14:HIRES 0,14 
Saza x2=20:* RIO K1S1I1O+ZE 

REC da E Zi 
O REC d19: 106,41, 


Spett :GOSUELAGA:G0 


"iP". 1,1, 8: RETUEH 


Hi=106+. 


i. L 


5:IFX1= 200 THEHSaSe 


REC Li 
BERT = 

TEXT 4; 1 
TEXT 15. 

TERT 115, 
TERT 115, 
PAUSE 5:N 


vio 
Boi 


x 
FO 


LISA, 

a "sl DIF. 1.16 
‘MAURO CIFAMI". 
aC) 195501. 
'IAFREDATORE "1a 
e SELETTRONICO",. 1, 
M:RETURH 


E) 


a @ = fici — 


0, 
5; 
hei 
a) 


(2 DO Jo o n I 


REM #*## ISTRUZIONI €4% 


7 SD 0 DL GER RD di 


î 


INSERIRE IL ITOJSTICK HELLA P 


n, 
de 


mi EA n nn RIN LAE 


Nam: ADD de ei 


n 
— 
AD 


PRINT 


Ti 
na 


S PRINT", INSERIRE LE DIMENSIOHI DEL 
LA STANZA, " 
Enia PRINT" 
IL JOT-" 
GAZA FRINT" 
IREZIONE *' 
GAZA PRINT" 
6040 PRINTUI 
SEGHARE. 

Go 90 PRINT" 


2, APPORTARE LE MODIFICHE 


(OH 


STICK, FPREMENDOLO VEESO LA D 


CHE SI VUOLE PRENDERE," 
«+ FREMERE ([F11 SE SI VUOLE DI 


[F3] SE SI VUOLE CAHCELLARE 


DO * 


tte PRINT" MANTEMERE PREMUTI [FIJI 0 CF 


di 


sasa PRINT" 
UTTR IL" 
6056 PRINT" 
LLAPE," 
Gagea PRINT'4, AL 
VIETA, SPO-" 
GAOFA PRINT" 


QIHSIEMES AL JIJOWSTICE PER T 
TRATTO DA DISEGHARE 0 CRHCE 
LA P 


TERMIME POSIZIOHARE 


STANDO IL PUNTINO CURSORE È 
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GM IL JO 

GUSA PRINT" STICK E PREMENDO IL FUOCO A 

LULA FOSI- 

60960 FRIMTU IONE GIUSTA, 

ELBA FPRINTUS.IN SEGUITO I MEHU? DEI TRST 
TI FUNZIO= A 
6116 PRINT" ME NT CONDUFRAHMO FIHO ALT 

ERMIMHE " 

G120 PRINT" DEL PROGRAMMA," 

G1ISA PRINTER pei ATTENZIONE! 

€140 PRINT'PER UN DISEGHO PERFETTOLEYTTA 
TE CON" 

61456 PRINT'MOLTA CURA DI SOVRAPPRORRE DUE 
LIHEE:" 

G160 PRINTUIM CASO DI CANCELLAZIONE DI LU 
4 DI ,BUET. 

5IF T'STE IL PUNTO D'IMNCROCIO RIMAH 
E 

È LATO ANCHE SULL'ALTRR." 

È Cibi g@isgPeER PROSEGUIRE PREMI UH 


:IFRE=""THEMEZOO 


i REM &#4SUEF, ROTAZIONE MOETLE**% 


PRIMNTUOMOBILI FIMHORA DISPOST 


04 PRINT: 'AIMEATTI IL HUMERO CORRISFOHDE 
TE: PL_H0=" 

FASO PFRINT'RILE CHE VUOI RUOTARE" 

PAGO NUO: INPUTHU: IFHUSETHEMCSET 2 :RETUE 
H 

PRES ISHU 

fara CSET GOSUBESOA: RETURH 

FEAIN. 


NS 
Ei FI > 
Ù (o) IT 3-9 
N N 1o) ge a hi : duill 
: = o 5 "oa : > Pa Òi ; 
: : N g ESE A xd ode zh 
ì Ò c 2 O) H 2 si di E T e | ni HH SÌ E oa 
labii s ss zu DT z L OZ mossi “dd. naz di & 
o d © Ud a T iS Ea DO p-PHU i de . PL n T u 
NÒ ° 543 ci dd È H- 2 HoH 9 0 UH A TOGA ZO -S tl 
“\ù n =9 ® dr PI IT HS e OH n DU JHZ 04 NE L How mari # | è RG « 
> E ® Gi lu - n > ILI-I zI 2 i «I # DU Tg dò ® 
Ò do 2 dura” a- W ui o dribku ao ug WF eo To n H ti PP 
Q O © if” = z_IZEÉ Q Da coca 5“ OFF 0 Z p_ond 
® a ca d x | ù Z z in UU Ii 
è CE | oo. LE È seo to: Sonut: 1 dw i Ta 
3 2 I or z I: oo Tooz. > H ta: : IU 0 ww Ul a RS dia 
5 3088 " e [io & rificroeiaeei S* Shit dg o june 
o O n + La e) ; TP LE 4 IM i mn uva dd 
o B9o8d agg sn sn cal in dadi O Gafiog i DOGO Decano 
o L£ ì dd tc- fo fl Deo YU HMI dC De; 2 WU [ra o Toda ET] MU de» 
E ew S eo I bi e > pi chili 5 OFBONO ij oi 4 Ò dI î U Wu u 5 o € è& si n Ta 
2202350 LO tE Lo Giza odi # UE DHEOLA UO Dt j ani Esa U i sash da 
o 2 og TIOC limiid LIIH C EÒ. 53ro” Lai Ca "© ST en a o 80 90 SO uU 2 cia Di 
35 EOS ZI Ri) ri FE E Her LP_LO A +iI O UL E LOOP E UE OFF da 0° 0 
E pa ui 7 7 ° - v: ì - . « Su Dn 
FO OGIE Sei. BE De Re ee i cai pe lai U0d i Oo UP pd my Da 00 
ces puro -_ HO Hex La 9 LOD du bo Topino nun Za pa WI va + Ù “Di - 3 
£ £ k 0 Ku de XPHpl 59 d ZH FUHE in Hi se co ii e Gb U ni: DO 404 
“ £ 0-29 5 è ci dî dro rt £Z ZU PEU CEO ET LIO mo DE È Sa O- SP SF - Fa U- sa 
FENCÉT Pi via oltouze L € Sia, usi a [ninni mi Di è dà V e È 0 ni 
O DID co so MI ILIMIIA > JH H TOZI XZ DI HE H = “nce pbub®& L o sao 6 . IG JO N- 
oC5£ ® 3 so S+00E0i dtacHoi CI-KOO CZ à Proc 3 Usbl3 bo bt "W Z #1 ur nà 
DS DZ - E nno mQ000 DORRORO oo foi Ri. usino ao do ct aa, Ai uo ela obeo5 #odLeco e” uu Z 
Da = IS ESZUETA ci GOLOA O Quuegn € ùÙ HW be: Z Le7 au I « DZ- O N 2. 
dI3ded Soi prio da ya 1 Q NMHZ a) 8] HH: HOHHZ TRUTOLIZZ 1 UwI Ria TUTETD [1A 
rp pippa pap ea dA 4 404496: HH diH di: 9T Nori Ù Ju 30H OHH iH WUZ LZWi XI EREMO " 
sossnanca o Resp Amon SIA 92 Migno-m G TooGuI E al Re on OU TiT4ta E 
° bal L Mm if + PE min cri 
titttttit da > 0 : mialti dNTgO pd EASSUEN:" Go SRURERA neHa on im ce gu “ui 
n°) piucd Cat ii BF es mi 4 “i I 6 " "= 11 9 î i Ho CYSy Mi - pra MAfiddA 
= 4 50 n dI do: coni 9 Ha: a: UDO) OI -QOXO O» i 
22 ® 55 He ” na Su ” ti 3 È hi 1 ica ni n «n òù © : MON RALE STCAILO 
“so 159 A RN x : n = i Pil dd: Où > U a pica 
a309% gr 3. | vr A Gb vp ll 2 n > Lr 
a Le a ze fe i se il où i 2 £ + 
3522 o o fig a fa PE LO Yo © te Ls 
OL A. 230 4 IND - T Di, U il i È de Fas tdi Ù ds +, GR > + 
GOA ai Lu i Se a dI d0s: DE sa DIE sa Qi uo ad 
aeZos a nani * si si ali J 0 2% L IR. È 
Pep D i FP n Hd di versa È 2 DdI+ © uao a i cò È + > ù 0 
ovvie Sid ia” o DO fi ZI vs U W z i Pow XI ò e N ui n | 
az DL S o= Ò x al O UDT-+ U i: HOe3I I $ Li 10 £ Ze zh! o è #à# Fo p i GI. 
L08958 ENO H sn ou È Fm EEFF CR Mii > +» ina fd 
E SL 0 ; i a o : n sa n 
Q 58 CN ia i Sole in” # a & O ‘od 5 Ta GR NT 
= Dv .D= (e7 Gua CALI + 3 ui = 8 Us * di z ui 2 
GICRD i Coe 1 bRO i u  * na n sap * n H PW 
Cc) 5LE lol ttittttntt UO 8 g0LAo si » 4 & Ù Hi ug 5 inn - CÒ 1 2_d 
a a) uo sensnasia ni nam LIE  % Ò Hi 3 DaZoao Moll 
5 o) eroi ni ni d ML: ; il i A O Set0c : gia do si 4 Pi da 
6 Ò TIrcrrrror I SEXL X xe £ og sb Lie ate” qu d«oH: * a Roe 
È DES EN LL A 535 SR CLAS Frari H ci ni dn s 
E ee toc Li DE O gRR TI — iii rai E io PRECI 
O 328 Do Tinti LAI 0.100. wr cticolie dov «I E $ mont v&- ma a 8a b_ bn 
ep Moi of PI & 3 Lx bZ [e] n Gu 
Ci. pui a E È RO nRAGO LA 41 o a aa UuHxH “RA HO di 2g o “-_U Sos ee ua d CUUME q__ Tae 
East talee Nasa a MEI pe Speri Censk è ‘EE do 
RE AR iti Uri OAIGGJOMO ALI di xiggnRanz z-oz0a 
CJ : {€ dle MUBsT aue-sno = ia È UCORORUONOA HxH 
È n SUA Sane DO. QLQUAI-aOI no La i ZL43H PIT 
[SE CET] 2 sica ne Ri 1 wo] Li ZUO:H 
wo TE ae dad | SONGS. Ud A GONATANDO! [oi ° 
9 FOSSO PSP STIona -o+9098-1) 
ùÙ dd DITO TITO dn 
DU IDO HO nao- 
U ì Mido ni 
u Ad 
mizic] 


79 


Caccia alla base 


Cerca le 20 basi invisibili che il computer ha 
celato nella griglia di destra. L'apparire di un 
quadratino rosso ti informerà del piazzamento 
completato. 

Ora tocca a te disporre altrettante fasi sulla 
griglia di sinistra digitando prima una lettera 
dalla A alla J e poi un numero dallo 0 al 9 per 
vederle sullo schermo (inutile contarle poiché 
il computer farà apparire un quadratino giallo 
al raggiungimento del numero 20). 

Seguendo la stessa procedura 
(lettera-numero) devi cercare di «scovare» le 
basi nemiche che, se ne avrai individuata la 
posizione, verranno visualizzate in rosso 
mentre nel caso di colpo fallito verrà 
visualizzata una X. 

Il primo colpo è sempre a favore del computer 
che farà diventare viola una tua base 
scoperta e visualizzerà la solita X in caso 
contrario. 

Vince, ovviamente, chi per primo scopre le 20 
basi avversarie. Digitare Z per una nuova 
partita. 


VARIABILI PRINCIPALI 


ODOCOTt ZO 
DO 


Basi computer (20) 
Disposizione basi del giocatore 
Ricerca basi del computer 
Basi del giocatore (20) 
Calcolo vincita del giocatore 
Calcolo vincita del computer 
Lettere griglia sinistra 
Colonna lettere griglia sinistra 
Lettere griglia destra 

Colonna lettere griglia destra 
Numeri griglia sinistra 

Riga numeri griglia sinistra 
Numeri griglia destra 

Riga numeri griglia destra 
Riga RND basi computer 
Colonna RND basi computer 
Controllo spazio vuoto per immissione 
basi computer 

Coordinata lettera 

Coordinata numero 

Ricerca colpo giocatore 
Colonna RND colpo computer 
Riga RND colpo computer 
Ricerca colpo computer 


120 CALL CHAR(112,"007E7E7E7E7E7E") 290 I=1 
130 CALL CHAR(120,"007€7E7E7E7E7E") 300 H=0 
140 CALL CHAR(128,"00666618186666") 310 T=0 
150 CALL CHAR(136,"007E7E7E7E7E7E") 320 V=0 
160 CALL COLOR(9,5,16) 330 REM 
170 CALL COLOR(7,16,5) 340 REN 
10 CALL CLEAR 180 CALL COLOR(10,1,16) 350 REM 
20 CALL SCREEN(11) 190 CALL COLOR(i1,10,16) 360 FOR X=8 TO 17 
30 PRINT "CACCIA ALLA BASE" 200 CALL COLOR(12,11,16) 370 CALL HCHAR(X,5,96,10) 
40 PRINT " " 210 CALL COLOR(13,2,16) 380 NEXT X 
50 PRINT "DADO 1984" 220 CALL COLOR(14,14,16) 390 FOR Y=8 TO 17 
60 FOR YOU=1 TO 2000 230 CALL COLOR(3,16,5) 400 CALL HCHAR(Y,19,96,10) 
70 NEXT YOU 240 CALL COLOR(4,16,5) 410 NEXT Y 
80 CALL CLEAR 250 CALL COLOR(8,16,5) 420 L=65 
90 CALL SCREEN(5) 260 CALL COLOR(5,16,5) 430 M=s5 
100 CALL CHAR(96,"007E7E7E7E7E7E") 270 CALL COLOR(68,16,5) 440 GOTO 480 
110 CALL CHAR(104,"007E7E7E7E7E7E") 280 A=0 450 LeL+1 


Mame i 

IF M}14 THEN 500 
CALL HCHAR(7,M,L) 
GOTO 450 

LL=65 

MM=19 

GOTO 560 

LUsLL+1 

MM=MM+1 

IF MM)28 THEN 580 
CALL HCHAR(7,NM,LL) 
GOTO 530 

P=48 

0=8 

GOTO 640 

PaP+1 

Q=9+1 

IF G)17 THEN 660 
CALL HCHAR(Q,4,P) 
GOTO 610 

PP=48 

00=8 

GOTO 720 

PP=PP+1 

00=00+1 

IF 0O)17 THEN 740 
CALL HCHAR(Q0,18,PP) 
GOTO 490 
RANDOMIZE 
R=INT(10#RND) +8 
RANDOMIZE 
C=INT(10#RND)+19 
CALL GCHAR(R,C,N) 
IF N=104 THEN 740 
A=A+1 

IF A>20 THEN 850 
CALL HCHAR(R,C,104) 


CALL SOUND(100,1760,10) 


GOTO 740 

CALL HCHAR(5,5,112) 
GOTO 870 

CALL KEY(0,K,S) 

IF S=0 THEN 870 

IF S=-1 THEN 870 

IF K=65 THEN 1010 
IF K=66 THEN 1060 
IF K=67 THEN 1110 
IF K=68 THEN 1160 
IF K=69 THEN 1210 
IF K=70 THEN 1260 
IF K=71 THEN 1310 
IF K=72 THEN 1360 
IF K=73 THEN 1410 
IF K=74 THEN 1450 
GOTO 870 

ON 2 GOTO 1020,1040 


GOTO 1510 


GOTO 1510 
ON 2 GOTO 1070,1090 


GOTO 1510 


GOTO 1510 
ON 2 GOTO 1120,1140 


GOTO 1510 


GOTO 1510 
ON 2 GOTO 1170,1190 


GOTO 1510 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


F=22 

SOTO 1510 

ON Z GOTO 1220,1240 
Fao 

GOTO 1510 

F=23 

GOTO 1510 

ON 2 GOTO 1270,1290 
F=10 

GOTO 1510 

F=24 

GOTO 1510 

ON Z GOTO 1320,1340 
Fall 

GOTO 1510 

F=25 

GOTO i510 

ON Z GOTO 1370,1390 
F=12 

GOTO 1510 

F=26 

GOTO 1510 

ON Z GOTO 1420,1440 
F=13 

GOTO 1510 

F=27 

GOTO 1510 

ON 2 GOTO 1470,1490 
Fai4 

GOTO 1510 

F=28 

GOTO 1510 

CALL KEY(0,K,S) 

IF S=0 THEN 1510 

IF S=a-1 THEN 1510 
IF K=48 THEN 1650 
IF K=49 THEN 1670 
IF K=50 THEN 1690 
IF K=51 THEN 1710 
IF K=52 THEN 1730 
IF K=53 THEN 1750 
IF K=54 THEN 1770 
IF K=55 THEN 1790 
IF K=56 THEN 1810 
IF K=57 THEN 1830 
GOTO 1510 


ON Z GOTO 1850,1960 
ON Z GOTO 1850,1960 
ON 2 GOTO 1850,1960 
ON Z GOTO 1850,1960 
ON 2 GOTO 1850,1960 
ON Z GOTO 1850,1960 
ON 2 GOTO 1850,1960 
ON 7 GOTO 1850,1960 
ON Z GOTO 1850,1960 
ON Z GOTO 1850,1960 
CALL GCHAR(G,F,W) 
IF W=120 THEN 870 
HsH+1 


IF H)20 THEN 1920 
CALL HCHAR(6,F,120) 


CALL SOUND (100, 27Î, 10) 


GOTO 870 


81 


A 


TAZZA “Y 


= Me 


CALL HCHAR(20,5,120) 
CALL SOUND(100,330,10,494,10,784,10 


1=2 

GOTO 2110 

CALL GCHAR(6,F,U) 

IF U=96 THEN 2030 

IF U=104 THEN 2060 

IF U=112 THEN 2010 

IF U=128 THEN 2010 
CALL SOUND(100,110,10) 
GOTO 870 

CALL HCHAR(G,F,128) 
CALL SOUND(100,-5,10) 
GOTO 2110 

CALL HCHAR(G,F,112) 
CALL SOUND(500,523,10,740,10,831,10 


TeT+1 

IF T=20 THEN 2280 
GOTO 2110 

RANDOMIZE 
CC=INT(10#%RND)+5 
RANDONIZE 
RR=INT(10#RND)+8 
CALL GCHAR(RR,CC,0) 
IF 0=96 THEN 2200 

IF 0=120 THEN 2230 

IF 0=128 THEN 2110 

IF 0=136 THEN 2110 
CALL HCHAR(RR,CC,128) 
CALL SOUND(100,-7,10) 
GOTO 870 

CALL HCHAR(RR,CC,136) 
CALL SOUND(500,110,10,117,10,123,10 


Vav+i 

IF V=20 THEN 2550 

GOTO 870 

PRINT TAB(8);"E VA BENE HAI VINTO" 
CALL SOUND(200,233,10) 
CALL SOUND(200,262,10) 
CALL SOUND{400,277,10) 
CALL SOUND(200,262,10) 
CALL SOUND(200,233,10) 
CALL SOUND(400,220,10) 
CALL S0UND(200,233,10) 
CALL SOUND(200,262,10) 
CALL SOUND(400,175,10) 
CALL SOUND(200,196,10) 
CALL SOUND(200,220,10) 
CALL SOUND(400,233,10) 
CALL SOUND(200,208,10) 
CALL SOUND(200,185,10) 
CALL SOUND(400,175,10) 
CALL SOUND(200,156,10) 
CALL SOUND(200,139,10) 
CALL SOUND(400,131,10) 
CALL SOUND(200,139,10) 
CALL SOUND(200,156,10) 
CALL SOUND(200,175,10) 
CALL SOUND(200,156,10) 
CALL SOUND(200,139,10) 
CALL SOUND(200,131,10) 
CALL SOUND(400,117,10) 
SOTO 2570 

PRINT TAB(8);"TI HO VINTO UMANO" 
CALL SOUND(1000,-7,10) 
PRINT TAB(8);"Z FOR PLAY" 
CALL KEY(0,K,S) 

IF S=0 THEN 2580 

IF S=-1 THEN 2580 

IF K=90 THEN 80 

GOTO 2580 
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Duello aereo 


Siete i protagonisti di un duello che si svolge 
nei cieli di un paesino: un caccia nemico 
cerca di abbattervi, dovete dunque essere 


2060-2300. 


pronti a rispondergli colpo su colpo. Nel bel 


mezzo del combattimento, il mirino inquadrerà 
un dirigibile, neutrale residuo di un passato 
non molto lontano, che vi inviterà a desistere 
dalla lotta; ogni attimo di incertezza può 
esservi fatale. Il vostro avversario 
probabilmente sarà meno pacifista di voi... 
Questo programma vi permetterà di vivere in 
prima persona le emozioni di un vero pilota di 
caccia, combattendo contro un vostro 
amico-nemico. Per lo svolgimento del gioco 
sono necessari due joysticks per controllare i 
caccia, mentre il dirigibile si muoverà 
autonomamente controllato dal computer. 
Potrete attaccare controsole per non essere 
visti dall'avversario; per fare ciò rifugiatevi 
nella parte alta dello schermo e, sfruttando 


l'effetto sorpresa, «piombate» sull’avversario. 


Fate molta attenzione quando volate a bassa 
quota, in quanto il minimo urto contro i tetti 
delle case manderà il vostro aereo in pezzi. 


ANALISI DEL PROGRAMMA 


All’inizio il Computer vi chiede se volete le 


FREE ERE A E 
* 

REM # DUELLO AEREO * 
* La 


REM MEMKEEMEAEATAMEETTA 
# PER COMMODORE 64 * 
* 


si 
REM # CON 2 JOYSTICKS > 


mo 
"ui D 
m 
= 


* 
@ REM PIRRO. 


20 
30 REM **#RICHIESTA ISTRUZIONI %%# 
49 


50 PRINT'I*:PRINT:PRINT:PRINT'2VUOI LE I 
STRUZIONI?® <S/NI" 

60 GETA$: IFA$="""'THENG@O 

70 IFA$£='S"'THENGOSUBZ078 

89 IFA$C>"N'THENGO 

87: 

88 PRINT"2'CHR$<142) 

90 GOSUB1920 

100 POKE53281,5:POKES3289,5 


istruzioni (linee 50-80) che, in caso 
affermativo, verranno mostrate dalla routine 


Dopo aver stabilito quanti colpi sono 
necessari per far precipitare l'aereo 
avversario, sfruttando la subroutine 
1920-1980, dalla linea 100 alla linea 640, il 
programma memorizza i dati necessari alla 
visualizzazione degli SPRITES raffiguranti i 
due caccia ed il dirigibile, mentre il paesino 
viene disegnato, sfruttando i simboli grafici 
della tastiera, in bassa risoluzione dalle linee 
660-720. La routine da 750 a 1010 esamina 
le condizioni delle manopole dei due joysticks 
e determina i movimenti relativi agli aerei. Le 
linee da 1020 a 1740 costituiscono il LOOP 
principale del programma e comprendono tutti 
i controlli sui movimenti degli aerei, sulle 
eventuali collisioni e sui colpi esplosi. 


La routine compresa tra le linee 1750 e 1910 
assegna i punteggi, determinando così il 
vincitore, e richiede se si vuole disputare 


un'altra partita. La subroutine 1990-2050 e 
tutte quelle comprese tra le linee 2380 e 2600 


116 PRINT''E2MMM ATTENDERE, PREGO.. 
126 PRINT' "pom STO IMMAGAZZINANDO DEI 
DATI." 


237 : 
238 REM #**#CARICAMENTO DATI SPRITEMK* 
239 : 


240 PX=15:PY=100:K=35:7=50:X=230:Z=50:R1 
=0:R2=6:D1=1:D2=1 

250 V=53248 :M=2040 

260 POKEM, 192 :POKE2042, 195:POKE2044, 196: 
POKE2945, 197 

270 FORI=123527T012414:READA:POKEI,A:NEKT 


220 DATRO,0,9.0,09,0,0,6,0,0,0,0,0,0,0 
299 DATR231,192,8,186,158,0,143,255,129, 
64,0 


300 DATA240,96,0,30,63,255,240,4,30 
319 DATA9,6,112,9,3,1592,0,7,224 
329 DATA9,0,09,0,8,0,0,0,0,09,0,6,0,0,6,9, 


0,0 
330 FORI=12288T012350:READE:POKEI,B:NEXT 


349 DATR9,0,09,0,0,09,9,0,09,9,9,09,9,09,09 
356 DATAG,3,231,09,61,77,0,247 

369 DATAZ41,15,0,1,120,0,1,15,255 

370 DATA254,0,16,64,9,12,64,0,3 
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impostano ed eseguono gli effetti sonori. 


382 DATA64,0,1,192,0,3,224,69,9,0,0,0,09,0 
:0,9,0,9,6,09,0,0 

399 RESTORE 

460 FORI=12489T012542:READO:POKEI,C: NEXT 
410 FORI=12416T012478:READD:POKEI, D: NEXT 
429 FORI=12544T012606:READE : POKEI, E : NEXT 
436 DATR9,9,0,9,0,0,09,0,2,15,255,13,31,2 
5 


5 
440 DATAS3®,63, 255, 190, 127,255, 190 
459 DATA127,255, 254,255, 255, 254, 255, 255, 


d60 DATA255, 255, 254, 255, 255, 254, 255, 255, 
470 DATA127, 255, 254, 127,255, 199,63,255, 1 
s5e D DATA31, 255, 30,15,255,14,9,09,2,09,0,9, 

490 FORI=1268T012678: READF :POKEI,F:NEXT 
a DATAR8,9,0,0,0,0,0,0,0,0,9,0,0,0,0,0, 


ne DATRG,0,0,0,9,0,6,9,24,0,08,60,9,0,12 


520 DATAG,69,0,0,24,6,09,6,0,9,9,9,0,9,0, 
530 DATA9,0,0,0,6,0,0,0,09,0,6,09,0,0,9,0, 
540 FORI=12672T012734:READG:!POKEI,G:NEXT 
550 DATAO,8,123,0,67,0,0,199,12,9,193,28 


560 DATR4,223,56,35,255, 120,31,254, 249 
570 DATR31,255,242,47,255,240,7,255,228, 


580 DATA255,224, 127, 255, 240,63, 255, 244 
599 DATAI4,255,188,16,247,166,2,231,164, 


500 DATA195, 144,8,211,192,65,129,200 

618 DATA0,0,123,0,0,6 

620 POKEV+39, 6 : POKEY+41,2:POKEY+43,7:POK 
EV+44,0:POKEV+21,53 

639 POKES3280,14:POKES3281,14:POKEV+10,9 
IPOKEV+11,0 

649 R1=0:R2=0:L=0:L1=0 

559 GOSUB1999 

657 : 

= REM #*#*DISEGNO SFONDOW*M>M 

669 PRINT STNTSOSINTE DITTE TATE TE TT TTNTETNTN 


670 PRINT" = 
i" wu = va n 


690 PRINT" ANA 
698 PRINT'A ® 192 91 "a cy, 
va 


= ee 


‘00 PRINT"A + +| 9 ® Is La ma 
La 14 HI" 

716 PRINT'a ® 1a 2 la 2b+19 
B+t+14 2 I 

720 PRINT"9 1a zia = # 7 


sz è1|gI ® 
pls PX=15:PY=100:K=35:Y=50 : X=230 : 2=50 


747 

748 REM WIKCONTROLLO JOYSTICKS#%% 

749 : 

759 Ji=PEEK(56320):J2=PEEK(56321):F1=J1A 
ND16:F2=J2AND16 

760 PRINT'@ISCOLPI SUL BLU";R1;TAEC28) "90 
OLPI SUL ROSSO";R2 

770 J1=15-(J1AND15):J2=15-(J2AND15) 

780 ONJIGOTO8GA, 810,920, 939, 340,850, 860, 
870,880, 390 

799 GOT0909 

300 Y=#-5:G0T0909 

810 Y=Y+5:GO0T0968 

820 GOTN96G 

830 X=M-5:POKEM,192:DI=1:G07T0990 

840 X=K-5:Y=#-5:POKEM,192:D1=1:G070900 
850 X=K-S:#='+5:FOKEM,192:DI=1:G0T0908 
260 GOT09R0 


870 X=X+5:POKEM, 193:D1=2:G0T0906 

380 X=x+5:+=Y-5:POKEM,193:D1=2:G0T0990 
990 X=K+5:+=+5:POKEM, 193: D1=2:GOTO96O 
300 0ONI2G0T0920,920, 949,950, 969,970,989, 
990, 1000, 1010 

S109 GOTOIAzO 

920 Z2=2-5:G0T01020 

330 Z=Z+5:GOTDIOZA 

946 GOTO1026 

950 K=K-S:POKE2042, 194: D2=1:G0T01020 

360 K=K-5:2=Z-5:PO0KE2042,194:D2=1:G0T010 
20 

370 K=k-5:2Z=27+5:POKE2042,194:D2=1:G0T019 


20 

9386 G0T016206 

9969 K=K+5:POKE2042,195:D2=2:G0T01020 
1000 K=K+5:2=2-5:POKE2042, 195: D2=2:GOTOI 


020 

10168 K=K+5:2=Z+5:P0KE2042,195:D2=2:GOTD1 
020 

101? : 

1918 REM ##&#CICLO PRINCIPALE#am 
1019 | 

1620 IFCP=2THEN1049 

1030 Pa=PX+4 P=PY+4:PC=PC+1 :GOT01050 
1040 PX=PX+4 :Py'=Py-4 :PII=SPD+1 
1050 IFPC>14THENCP=2:PC=G 

1069 IFPD>14THENCP=1:FI=A 

1070 IFPX>249THENPX=15 

1080 IFXCATHEN%=9 

16090 IFYC@THEN7=0 

1100 IFX>255THENX=255 

1110 IFY>184THENI 380 

1120 IFKCOTHENK=M 

1130 IFZ<@THENZ=G 

1140 IFK>255THENK=255 

1150 IFZ>184THENI490@ 

1160 GOSUB2486 

1170 IFFi=16THENI1270 

1180 GOSUB2068 :G0SUB2559 

1190 IFDi=1THEN12160 

1200 FORI=KTOx+8@STEP8:GO0TD1220 


1210 FORI=KTOX-S@STEP-8 

1220 IFICB0RI>255THEN1260 

1239 POKEYV+19,I:POKEV+11,4 

1246 IFPEEK<V+30>)=36THEN1490 
1250 NEXT 

12609 POKEV+16,0:POKEV+11,0:G0SUB199G 
1270 IFF2=16THEN1370 

12806 GOSUB2060 : C0SUB2559 

1290 IFD2=1THEN1319 

1300 FORI=KTOK+S@STEP8:G0T01320 
1310 FORI=KTOK-BASTEP-8 

1320 IFI<XB0RI>255THEN1379 

1330 POKEV+19,I:POKEV+11,Z 

1340 IFPEEKCY+30)=323THEN1380 
1350 NEXT 

1360 POKEV+19,0:POKEV+11,0:G0SUB1996 
1376 GOTO750 

13509 GOSUB2068 

1390 POKE2940, 198: GOSLB2330 

1406 0=0+1:IFQ>16THEN1450 

1410 POKEV+39,2:FORI=1TO100: NEXT 


1420 POKEY+39, 7 :FORI=1T0100:NEXT 
1430 POKEY+39,0:FORI=1T0190:NEXT 
1440 GOTD1400 

1450 POKEM, 192: POKEV+39,6:POKEV+10,0:POK 
EV+11,0:0=9 

1460 Ri=R1+1:IFR1>=NTHEN1750 
1470 GOSUB1998 

1480 GOTO746 

1490 GOSUB2660 

1598 POKE2042, 198: GOSUB2389 

1510 Q=Q+1:IFQ>10THENI560 

1520 POKEV+41,2:FORI=1T0100: NEXT 
153@ POKEV+41,7:FORI=1T0100: NEXT 
1540 POKEV+41,0:FORI=1T0190: NEXT 
1550 GOTO01510 

1560 POKE2042,195:POKEV+41,2:POKEV+10,0 
POKEV+11,0:0=9 

1570 R2=R2+1:IFR2>=NTHENI760 
1580 GOSUB1990 

1590 G0T0740 

1600 GOSUB2B68 


1619 POKE2042, 198: GOSIIB2380 : POKEM, 198 
1620 Q=Q+1:IFQ>18THEN1670 
1639 POKEV+41,2:POKEV+39,@:FORI=1T0100:N 


1640 POKEV+41,7:POKEV+39,2:FORI=1T0190:N 
1650 POKEV+41,0:POKEV+39,7:FORI=1T0190:N 


1669 G0T01629 

1670 POKE2042,195:POKEV+41,2:POKEV+10,0: 
POKEV+11,0 

1680 Q=@:POKEM, 192: POKEV+39, 6 
1690 Ri=R1+1:R2=R2+1 

1700 IFRI1>=NANDR2>)=NTHEN1770 
1718 IFR1>=NTHEN1750 

17208 IFR2>=NTHEN1760 

17398 GOSUBI990 

1749 GOTO748 

174? : 

194-D REM #otFINE BATTAGLI Axa 


1750 PRINT'RIIL ROSSO VINCE!":G0SUB2410:G 
0701788 

Pie elio BLU VINCE!" :GOSUB2410:G0T 
1770 PRINT'LA BATTAGLIA E”PARII":G0SUB24 


1780 FORI=1T01600:NEXT 

1799 POKEV+21,0 

1800 POKES3280,2:POKE53281,2:!PRINT'ar° 
TIDOTIADO”* 


VUDI von ANCORA 7" 
1838 PRINT'WN {S/N 

1840 GETUS: IFUS=""THEN1840 

1850 IFU$='S"THENGOSUB1920:GOT0628 
1860 IFL$="N"THEN1989 

1865 IFU$C>'S"ANDU$C>"N'THEN1840 

1870 G0T01840 

1880 POKES3281,6:POKE53280, 14 PRINT" 
1890 PRINT" CI VEDIAMO AL PROS 
SIMO DUELLO!" 

1908 FORI=1T01900:! NEXT 

1910 END 


1918 REM WWWSUBR, IMPOSTAZIONE COLPI NECE 
io PER VINCERE MW 

1919 : 

A RE QUANTE VOLTE DEVI COL 


1930 PRINT" L'AVVERSARIO PER VINCERE?" 


1940 PRINT'MM <1/79) Mm" 
1950 GETN$:IFN$='''THEN1950 

1960 N=VALCN$) : IFNCIORN>9THENI950 

1970 PRINTTABC15)N 

19890 FORI=1T01960:NEXT:PRINT'72": RETURN 
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5 


VA 


1 


NAM 


1987 : 
1988 REM W*WxSUBR,EFFETTO SONORO MOTORI 
* 


1989 : 

1999 S=54272:POKES,9:POKES+1,2:POKES+2,@ 
:POKES+3, 3:POKES+4, @ 

2000 POKES+5,0:POKES+6, 240 :POKES+?,12:PO 
KES+8,2:POKES+9,0:POKES+19,4 


2016 POKES+11,9:POKES+12,8:POKES+13, 192: 
POKES+14, 16 :POKES+15,2 

2020 POKES+16,0:POKES+17,6:POKES+18,0:PO 
KES+19,@:POKES+20, 64 

2030 POKES+21,9:POKES+22,30:POKES+23,243 
1POKES+24, 3 

2048 POKES+4,65:POKES+11,65:POKES+18,65 
2059 RETURN 

2057 : . 

2058 REM W&XSUBR, DISPLAY ISTRUZIONI #%# 


2059 : 

2060 S=54272:FORF=STOS+24:POKEF,0:NEXT:R 
ETURN 

2070 POKES3288,2:POKES3281,2:PRINTCHRSCI 
4) 


2080 PRINT"DI RA POCO INIZIERETE UN DUELL 
O AEREO" 

2090 PRINT'SENZA ESCLUSIONE DI COLPI!" 
2198 PRINT'XxI COMBATTERETE SU DUE CACCIA 
BOMBARDIE-" 

2118 PRINT"RI SU DI UN VILLAGGIO, \ANOVRE 
RETE" 


RREERAA REREI CON I JOYSTCKS,E SP 
2139 PRINT'CON I PULSANTI [4-1] POSTI 
SU QUESTI," 

2140 PRINT:PRINT'OVETE FARE ATTENZIONE 
SIA A NON SPRE-" 

2150 PRINT’ CARE I COLPI, SIA A NON COLPI 
RE UN PAL-' 

2160 PRINT' 'LONE NEUTRALE CHE VOLTEGGIA N 
EL CIELO,‘ 

Sin PRINT'@TTENZIONE ANCHE A NON URTARL 
D,E NON' 

2189 PRINT''ABBASSATEVI TROPPO SUI TETTI, 
POTRESTE" 

2190 PRINT 'PENTIRVENE!" 

22090 PRINT'OTETE PROVARE ANCHE A NASCON 
DERVI NEL-" 

2219 PRINT'LA PARTE ALTA DELLO SCHERMO, 
E PIOMBA-" 

2220 PRINT'RE DI SORPRESA SUL NEMICO. " 
2230 PRINT'@LL'INIZIO DOVRETE FISSARE QU 
ANTE VOLTE" 


sui o DOVETE COLPIRE IL NEMICO PRIM 

A DI AB-" 

2250 PRINT''BATTERLO. " 

2260 PRINT :PRINT"| 477 
IF® 21 L/TI" 

ne PRINT'MPER PROSEGUIRE PREMI UN TAST 


2290 GETA$:IFA$=""THEN2290 

2300 RETURN 

2377 : 

pt REM ##W#SUBR,EFFETTI SONORI ##% 

2379 : 

2380 POKES4276,0:PO0KE54277,0:P0KE54278,09 
:POKE54277,0:POKE54278,0 

23906 POKE54277,29:P0KE54278,1:P0KE54273, 
2:POKES4272, 1 :POKE54296, 15 

2400 POKES4276,129:RETURN 

2410 POKE54273,0:POKES4276,0:POKE54277,9 
‘POKES4278, 240 :POKE54276, 17 

2420 L=@ 

2430 L1=M:L=L+1:POKE53289,L 


2448 Li=L1+1:POKES4273,L#L1:IFL1<15THEN2 


2450 IFLCISTHEN2430 
2469 POKE54273,0:P0KE54276,0:P0KE54296,8 


2470 POKE53288, 14 : RETLIRN 

24809 POKEV,X:POKEV+1,Y:POKEV+4,K:POKEV+5 
+2: POKEV+8, PX :POKEV+9, PY 

2490 IFPEEKCV+36)=17RNDPX-X>70THEN2520 
2509 IFPEEKCV+30)=17ANDPK-X<-70THEN2520 
2510 IFPEEK(V+30)=17THEN1389 

2520 IFPEEK(Y+30)=20THEN1490 

2539 IFPEEKCY+30)=5THEN1600 

2540 RETURN 

2550 SI=54272:FL=SI:FH=SI+1:TL=S1+2:TH=S 
1+3 

2560 W=S1+4:A=S1+5:H=SI+6:L=S1+24 

2570 FORT=1STOGSTEP-1 

2580 POKEL,T:POKER, 15:POKEH, 9: POKEFH, 40: 
POKEFL, 200 : POKEW, 129: NEXT 

2596 POKEL.OB:POKEA, A 


2690 RETURN 
READY. 


XL SNZIO Tal 


CONCORSO STRIKE 


In seguito ad un refuso tipografico, parte 
del programma «EASY SPRITE» 
partecipante al concorso — categoria CBM 
64 — non è stata pubblicata e viene quindi 
data qui di seguito. 

Cogliamo l'occasione per scusarci con gli 
autori del programma, i Sigg. Maurizio e 
Stefano Moretto e con tutti i lettori. 


2267 IF K>1i AND K<5 AND J=4 THENPOKEVR+K 

+35, (Y-1)ANDI5:G05SUB2500 

2269 IF K>1 AND K<5 AND J=8 THENPOKEVR+K 

+35, (Y+1)AND15:GO0SUB2500 

2270 IF(K=5)AND(JF=0} THENFORKX=1T015:GETX 

$: NEXT : 61850944 : RETURN 

2271 REM SYS50944=TRASFERISCE SCHERMO IN 
DATI DELLO SPRITE 

2275 FORX=1T05:NEXT:G0T02245 

2499 REM * —SUBR. STAMPA RETTANGOLI * 

2500 PRINT‘ 2000" TABC27) “MI 1° 

2505 PRINTTAB(27)L__BBISERASE” 

2599 PRINTTABC27)"MUA 

2519 PRINTTABC27)"d SSBICOL. 1° 

2511 C1=PEEK(VR+37)AND15:FORX=55563T0555 

65:POKEX, C1:POKEX+40, C1: NEXT 

2512 PRINTTABC27)C1"M 

2514 PRINTTABC(27) "MA 

2515 PRINTTABC27)"9 SBICOL. 2° 

2516 C2=PEEK(YR+38)AND15 : FORK=55723T0557 

25:POKEX, C2:!POKEX+40, C2: NEXT 

2517 PRINTTAB<C27)C2"M “ 

2519 PRINTTAB(27) "MA 

2520 PRINTTAB(27)"9  MIBICOL. 3° 

2521 CS=PEEKC(YR+39)AND15:FORX=55883T0558 

85:POKE, CS: POKEX+40, CS: NEXT 

2522 PRINTTAB(27)CS"M 

2525 PRINT“ MN TABC27) NT 1 | 

2530 PRINTTAB27) Lon DPIMEMENU A: IFA=1THE 

NRETURH 

2535 REM # SUR, CORNICI NEI RETTANG, % 

2540 X=1291+(K-21#160:POKEX, 240 
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2545 POKEX+1,192:FOKEK+2, 238 :!POKEX+40, 23 
7:POKEX+41, 192: POKEK+42, 253 

2559 RETURN 

2697 REM HIREIALEEEAAAAANAAAAAAAAAAA AA 
2698 REM #SUBROLITINE-SPECCHIO-SPR, MUL. # 
2699 REM SERRE EEA AAAAAAA AAA 
2709 SYSSOGDE | SY549321 : G0SUBI65 : RETURN 
2701 REM SYS50606 + 5549321 SUBR. SPECC 
HIO MULTICOLOR 

2707 REM #EFRETEEEEZEAZAAAAAAAAAAAAAA 
2708 REM * SUBROUTINE MENU” * 
2709 REM HARRIS AAANAAAA TARRA RANA RA 
2719 PRINTTABC14)‘M00---MENU”--- 

2715 PRINT‘ HOP ]BI EDITOR si 
73081 SAVE DATI” 


2720 PRINT‘ MI]N VISUALIZZ. SPRITE 8 
JN LOAD DATI” 

2725 PRINT “RISI NEGATIVO 9 
JB PRINT DATI” 

2730 PRINT‘ WI] SPECCHIO MiO 
JB PROG, ESEMPIO” 

2735 PRINT‘WWIS]8 CAPOVOLGIMENTO Mii 
JB! CLEAR SPRITE” 

2740 PRINT ‘@IS6]8I ROTAZIONE 12 


JU MENU” PRINC. 

2745 INPUT ‘MEDI QUALE OPZIONE 
INURNNENENENNANTI” ; Xx 

2750 IFK<C10RX>12THENGOSUB2779:G0T02745 

2755 INPUT‘IBBI TUTTO OK [S/N] “;X$ 

2760 IFLEFT$(X$,1)="N"THENPRINTTTITITI 

:G0T02745 

2765 RETURN 


5 
FA 
7; 


ATTENZIONE! 

Per un diverso interfacciamento con la stampante 
il segno ' (apostrofo) corrisponde agli apici ”. 
Fate attenzione nel digitare il programma. 

10 PRINT ’'O’ DIVENTA: 10 PRINT'D)" 


QI REMO HGO NEANCHE AIA 
2768 REM # SUBROUTINE DATO ERRATO * 
2769 REMO MARA AAA AARON AAA AA AM 


2770 PRINT“ BBIDATO ERRATO. RIPETERE PREG 
O, e a III) :FORK=1T01000:NEXT : RETURN 

2997 REMO RARO AA AAA AA AAA AAA AA 
2998 REM # SUBROUTINE MUSICA 1 * 
2999 REMO MARARAAAAAA ARIA AA AAA ANAAO 
3000 POKES4277,40:POKES4284, 40: POKE54291 
:»49:REM SET ATTACK/DECAY VOCE 1,2,3 

3019 POKES4278,40:P0KE54285, 40 : POKES54292 
»49:REM SET SUSTRIN/RELEASE VOCE 1.2,3 
3023 POKES1283,33:REM WAVEFORM VI 

3024 POKES1230,PEEK(51283)-1 

3025 POKES1357,33'REM WAVEFORM v2 

3026 POKES1394,PEEK(51357)-1 

3027 POKES1431,33:REM WAVEFORM v3 

3028 POKES1378,PEEK(51431)=1 

3029 POKE54274,0:REM LO-PULSE VI 

3030 POKES4275,0'REM HI-PULSE Y1 


3031 POKE5S4281,B:REM LO-PULSE ‘2 

3032 POKES4282,0:REM HI-PULSE 2 

3033 POKES4288,0:REM LO-PULSE V3 

3034 POKES4289,0:REM HI-PULSE V3 

3040 REM * INIZIALIZZ.PARAM. MUSICA 1 # 
3045 POKES6333,23:POKE49913, 182: POKE49914 
» 206 
3050 POKE49918,178:POKE49919, 204 : POKE499 
19, 178:POKE49911,204:G0T03300 

3097 REM SANA AIAR AAA ANA RIINA 
3098 REM #* SUBROUTINE MUSICA 2 * 
3ZOP9 REMO NANA AAA RAIN AAA AAA AN 
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Ù î i NA 


MA | 


3199 POKES4277,40:POKE54284, 40: POKES4291 
»40:REM SET ATTACK/DECAY VOCE 1,2,3 
3116 POKES4278, 40 :POKE54285, 40 : POKES4292 
»49:REM SET SUSTRIN/RELEASE VOCE 1,2,3 
3123 POKES1283,33:REM WAVEFORM VI 

3124 POKES1230,PEEK(51283)-1 

3125 POKES1357,33:REM WAVEFORM V2 

3126 POKES1304, PEEK(51357)-1 

3127 POKES1431,33:REM WAVEFORM Y3 

3128 POKES1378,PEEK(51431)-1 

3129 POKES4274,6:REM LO-PULSE ‘1 

3139 POKES4275,0:REM HI-PULSE VI 

3131 POKES4281.6:REM LO-PULSE 2 

3132 POKES4282,@:REM HI-FULSE 42 

3133 POKES4288,0:REM LO-PULSE 43 

3134 POKES4289,@:REM HI-PULSE 3 

3140 REM # INIZIALIZZ.PARAM, MUSICA 2 * 
3145 POKES6333,3:P0KE49910,@:PO0KE49911,2 
92:P0KE49918,0:PO0KE49919, 202 s 

3156 POKE49913,8:PO0KE49914,203:G0T03300 
3197 REM HEKHHAMEREAAAAAAAZAARAARAAAAAA 
3198 REM # — SUBROUTINE MUSICA 3 * 
3199 REM MAHHAAMMEEEAAAAATAAAAAAA RARA 
3209 POKES4277,409:PO0KE54284, 40 :POKE54291 
+40:REM SET ATTACK/DECAY VOCE 1,2,3 
32109 POKES4278, 40: POKES42895, 40: POKE54292 
+40:REM SET SUSTAIN/RELEASE YOCE 1,2,3 
3223 POKES1283,33:REM WAVEFORM Y1 

3224 POKES1230, PEEK(51283)-1 

3225 POKES1357,33:REM WAVEFORM V2 

3226 POKES1304, PEEK(51357)-1 


3227 POKES1431,33:REM WAVEFORM Y3 


3228 POKE51378,FEEKC51431)-1 

3229 POKE54274,6:REM LO-PULSE 41 

3239 POKE54275,0:REM HI-PULSE 41 

3231 POKE54281,0:REM LO-PULSE ‘2 

3232 POKE5S4282,0:REM HI-PULSE 42 

3233 POKES4288,0:REM LO-PULSE ‘3 

3234 POKE54289,0:REM HI-PULSE 43 

3240 REM # INIZIALIZZ.FARAM, MUSICA 3 * 
3245 POKE56333,3:POKE49910,11:POKE49911, 
203 i 

3250 POKE49918,11:POKE49919, 203 :POKE4991 
3,175:POKE49914, 204 

3299 REM # START MUSICA * 

3300 POKE49915, 1:P0KE49916,1:POKE49917,1 
:POKE49912, 1 

3305 POKE54296,15:REM SET VOLUME 

33109 POKE788,0:POKE789, 200: POKES6333, 131 
: RETURN 

3997 REM MEKKHARKHFAEMIAHAAATAAAAEAAAAA 
3998 REM # ANIMAZIONE SPRITE EGIZIANO * 


BP AREE HIER 66 € REA AA 
4990 POKEYR+1,112:POKEYR+3,133:REM COORD 
». V 

4005 POKEYR+28,3:REM ABILITAZ. MULTIC, 
4019 POKE2940,13:POKE2041,14:REM PUNTATO 
RI BLOCCHI SPRITE 

4915 POKEYR+37, 1:POKEYR+39,8:POKEVR+39,2 
:POKEVR+40, 9: REM COLORI 

4019 REM INIZ. ROUTINE L.M. 

4920 POKE253, 126 :POKE254, 158: POKES2991,2 
52:P0KE52990, 0: POKES2988, 126 

4925 POKE52989, 159 : POKE52986, 126 : POKE529 
87,158: POKE52983, 254 : POKE52984, 158 

4059 PRINT‘IN TABC9) 9 < 

4060 PRINTTAB(9)? se. @” 

4070 PRINT‘ @ w= ‘e’ 

4086 PRINT"| 


4090 PRINT'I9 >» Lil 
4100 PRINT"19 | - 
4110 PRINT‘ TT. 1 _,& 


4129 PRINT RIMINI TABC28) “ TIRA” 
4139 PRINTTAB(27)‘.49 R_@& 


4149 PRINTTAB(26) N49 RR @ ye 
4150 PRINTTAB(25) 49 RR 

4160 PRINTTABC24) 49 R i 
4179 PRINTTABC23) “39 R Dl 


4180 PRINTTABC22) 39 Pr 
4199 PRINTTABC21) 39 A x’ 
4200 PRINTTABC20) “397 ri 


4216 PRINT” MORETTO IT Fata 
PB dll 
4220 PRINTTAB(25) (I Mn RS 
4239 PRINT“T4 ara Pr Pr82 I 
+ 
4240 PRINT” pe EPS ALI 
+8 
4259 PRINT‘ Pari HI Pa FP "= PE 
pa pa pa 
da PRINT‘ dp PS 8 + 
4279 PRINT” asp 35 IP ® 
Patti 
4280 PRINT‘ 35 38 PE 48 
ara 
4299 PRINT‘ pri ds Pa ga Pa 
gua 
4306 PRINT” fa I I [| 


+8 w PRESENTA: 

4310 PRINT ‘OI 
een LE 

4320 PRINT" Br pp plat 
a 


— +‘ 

4399 POKE2023, 241 :POKE56295, 2! POKEY/R+16, 
0:POKEVR+23,0:POKEVR+29,9 
44090 POKEYR+27,3:POKEVR+21,3:RETURN 
20009 REM AHHRAERARTAATAAAAAAAAAAA AAA RA 
20001 REM # PROCEDURA PRINCIPALE * 
20002 REM HHEHRREATAAAAIANAAA AAA AAA 
20003 PRINT‘ :POKES3281,14:G0SUB44 
20005 PRINT DEERAAAAAZIANIAAAAAAAAAAEATA 
HAAAHTAAAAAANAA 7 | 
20019 PRINT‘ #K44444%#%% 

HEFDATAAAAA |; 
20015 PRINT‘ #%4#4#4##### MENU” PRINCIPALE 

HEHATAAAAA | 
20020 PRINT‘ #*E444444#% 

VADA"; 
20025 PRINT‘ #EKKEKPEREAHEMEAREAAAAAAA AA 
MERDA; 
20039 PRINT‘ IMBBBIZXI ]h SPRITE NORMALE 
20935 PRINT‘ MBBBIC]A SPRITE MULTICOLOR 
20037 PRINT‘ MBBBISZI]A MUSICA OHNZOFF 
20039 PRINT‘ MibBBIS]A MUSICA 172/37 
20646 PRINT‘ PBbBISI: END" 
20645 INPUT‘ MMI QUALE OPZIONE 

INBNENENENNERENI” ,f 

200509 IFMC10RM>5THENGOSUB2768 :G0T020045 
20055 INPUT‘MBIBI TUTTO OK C(S/N] 7;X$ 
20059 IFLEFT$(X$,1)="N"THENPRINTTTITIT] 
‘“:G0T020045 
200965 ONMGOTO20100, 20200, 20067, 20070 
20966 POKE49912,0:PRINT“IIMBBIOK! PADRONE 
“(END 
20067 IFPEEK(49912)<>@THENPOKE49912,9:G0 
T020005:REM POKE49912,6 TERMINA MUSICA 
20068 POKES6333,3:PO0KE54296, 15:PO0KE788,0 
:POKE789, 200 :POKE49912, 1 


20069 POKE56333, 131 :G0T020005 

20079 MU=MIJ+1:IFMU=4THENMU=1 

20075 ONMUGOSUB299I8Z, 3098, 3198 

20084 GOTO020005 

201099 PRINT“ TB TAB(12)"SPRITE NORMALE”: 
GOSIUE2703 

20165 ONXGOSUB18A,365,399,411,418,438,69 
8,5983,925, 993,918 

20170 IFM=2THEN20200 

20175 IFX=12THEN20005 

201809 GOTOZHIDA 

20200 PRINT‘ TIM TABC11)“SPRITE MULTICOLO 
R‘:GO0SUB2708 

20295 ONX GOSLIE2198, 365, 399, 2698,418,199 
8,698, 598,925, 998,918 

20219 IFM=1THEN20100 

20215 IFX=12THEN20005 

20229 GOTC20200 

34997 REM PERI ARI AAA ZAN ANA AA AAA RA 
34998 REM # L.M. MUSICA CINTERRUPT) * 
34999 REMO HIANARAARO NARNIA AAA AAA 


40000 DATA165,251,72,165,252,72,173,254, 
194,133, 251,173,255,194,133,252,104,141 
40010 DATA255, 194, 104, 141,254, 194.206,25 
3,194,208,69,169,32,141,4.212,165,251 
49929 DATA205, 249, 194, 208, 10, 165, 252, 205 
1250,194,2098,3,76,17,201,160,0,177 


N n 
xx 


= DIA | 


406039 DATA251,208,10,200,200,177,251,141 
1253, 194, 76,87,200,141,09,212,200,177 
46049 DATA25S1:141,1,212,200,177,251,141, 
253,194, 169, 33, 141,4,212,24,165,251 
406059 DATA105,3,133,251,144,2,2309,252,20 
6,252,194,203,69,169,32,141,11,212 


400960 DATA165,251,205,249,194,208,10,165 
1252, 205, 259; 194, 208,3.76,17,201,160 
40079 DATA®,177,251,208,10,200,200,177,2 
31,141,252,194,76,161,200,141,7,212 
49089 DATA2090,177,251,141,8,212,200,177, 
251:141,252,194, 169, 33,141,11,212,24 
49099 DATA16S,251,105,3,133,251,144,2,23 
0,252, 206,;251:194, 208,69, 169, 32, 141 
40109 DATA18,212,165,251,205,249,194, 208 
210,165, 252,205,250,194, 208,3,76,17 


40110 DATA201.160,0,177,251,208,109,200.2 
00,177,251,141,251,194,76,235,200,141 
40120 DATA14,212,200,177,251,141,15,212, 
209,177,251,141,251,194,169,33,141,18 
40139 DATA212,24,165,251,105,3,133,251.1 
44,2,230,252,165,251,72,165,252,72 

40140 DATA173, 254, 194, 133,251,173,255,19 
4,133,252, 104, 141,255,194, 104, 141,254 
40159 DATA194, 76,64,201,173,248,194,240, 
24,169,1,141,253,194,141,252,194,141,251 


40160 DATA194,173,246,194,133,251,173,24 
7:194,133, 252,76,246,200,169,49,141 
49170 DATA260,3,169,234,141,21,3,169,0,14 
1,24,212,76,246, 200 

401.90 REMIGIO ROIO AO RO OOO 
40191 REM L.M. SPOSTAMENTO /MOB”EGIZ, % 
40192” REMI A AAA AAA 
48200 DATA173, 255,206,2409,118,173,254,20 
6,240,6,206,254,206,76,49,234,169,8 
40219 DATAR141,254,206,165,253,205,250,20 
6,208,7,165,254,205,251,206,240,20,165 
49220 DATA253,205,247,206,208,7,165,254, 
205, 248, 206, 240,59, 206, 255, 206, 206,255 
49230 DATA206,169,128,24,165,253, 195,128 
,133, 253, 144,2,220, 254, 201,254,208,16 
40249 DATA165,254,201,159,208,10,173,250 
206,133, 253,173,251,206,133,254,177,253 


492509 DATA153,64,3,136,16,248,173,255,20 
6:141,0,208,141,2,208,76,49,234 

40269 DATA206.255, 206, 206, 255, 206, 206,25 
3, 206,206, 255: 206, 76,119.201,169,49,141 

40279 DATA15,201,169,234,141,16,201,169, 
0,141,21,298,76,49,234 

40490 REDIAEEAAAAAAAATAAAIAAAAIAA ANA 

40491 REM* NOTE MUSICA 1 CINTERRUPT) # 

40492 REMIEEHETAAARAAAA RETTA TARAAAA AA 

49509 DATA39,25,30,0,0,30,0,0,30,135,33, 
30,31,21,39,97,8,60 

405109 DATA135,33,15,31,21,15,162,37,15,9 
6,22,15:62,42,30,309,25,39 

40520 DATA9?,8,60,135,33,30,31.21,309,60, 
50, 60,299, 18, 30,233, 7,20 


40539 DATA30, 25, 30, 71,6,309,62,42,30,30.2 
5:.60,97:8,69,0,0,15 

40540 DATA62,42,15,193,44,39,49,28,69,15 
2:5,69,609,59,15,193,44,15 

49550 DATA62, 42, 15, 39, 25,69,97,8,609,193, 
44, 15,609,50, 30, 162,37,15 

40569 DATR39, 25, 60, 71,6,609,135,33,15, 162 


'87 


»37,15:62,42,15,162,37,30 

40570 DATA165,31.15,0,09,60,49,28,15,30,2 
5:30,30,25,15,96,22,15 

405809 DATA135, 33, 30,31,21,30,97,8,60,135 
+33, 15,31,21,15,162,37,15 

405909 DATASG, 22, 15,62, 42,30,30,25,309,97, 
8,60,135,33,39,31,21,30 

40509 IDATAGGO, 50, 66, 209, 18,30,233,7,309,30 
125, 30,71,6,30,62,42,309 

40616 DATA30, 25,60,97,8,30,0,6,15,9,09,30 
»62,42:15,193,44,15 

40620 DATA49, 28, 36, 152,5,60,60,50,15,62, 
42, 15,30,25,30,193,44,15 

40630 DATR162, 37, 30,96,22,60,71,6,60,0,0 
+15, 135, 33, 15,135, 33,60 

be viari nni i) 
’ , , 6 

PIEDI RE MINA AAA AAA AA AAA AA ANA 
40691 REM* NOTE MUSICA 2 CINTERRUPT) * 
40ESZ RE MAH AAAAAAAAAAA AAA AIAR 
4097009 DATA30, 25, 30,31,21,69,97,8,60,30,2 
5;15,49,28,15,309,25,60,31,21,609,97,8 
46719 DATA6O,.62,42,30,31,21,609,97,8,60,6 
2:42,15,193,44,15,62,42,60,31,21,60,97,8 


46720 DATAGO, 62, 42,309, 30,25,60,97,8,69,6 
9,50,15,193,44,15,62,42,60,30,25,60,97 
40739 DATAS,60, 162, 37,30,30,25,30,233,7, 
30,62,42,15,96,22,39,71,6,309,162,37,15 
40740 DATA135,33,60,31,21,69,97,3,69 
46750 DATA39, 25, 30, 31,21,69,97,8,60,30,2 
5:15,49,28,15,30,25,60,31,21,60,97,8 
40760 DATAS®, 62,42,309,31,21,60,97,8,609,6 
2,42,15,193,44,15,62,42,60,31,21,60,97.8 


40778 DATAEO,62,42,39,30,25,60,97,8,60,6 
0,509,15,193,44,15,62,42,60,30,25,60,97 


49780 DATA8,60,162,37,20,39,25,30,233,7, 
30,62,42,15,96,22,39,71,6,30,162,37.15 
40790 DATA135,33,69,31,21,60,97,8,69 
46800 DATA6G2,42,15,156,26,60,233,7,60,62 
142,15,62,42,39,165,31,60,156,26,60,71 
46810 DATAS,60,135,33,15,49,28,60,12,7,6 
0,162.37,15,135,33,15,165,31,15,49,28 
49820 DATASO, 31,21,60,12,7,60,135,33,15, 
49,28,60,12,7,60,135,33,15,165,31,15- 
40830 DATA135,33,15,162,37,60,165,31,60, 
71:6,60,30,25,15,31,21,60,97,9,60,20 
46549 DATA25, 15,62,42,309,193,44,60,209,1 
8,60,233,7,609,30,25,309,31,21,60,97,2 
498580 DATAGAO, 30, 25, 15,49,28,15,309,25,60, 
31.21,60,97,8,60,62,42,309,31,21,60,97 
46960 DATAS8,60,62,42,15,193,44,15,62,42, 
60,30,25,60,97,8,60,62,42,30,30,25,60 
49870 DATA97,8,60,609,50,15,193,44,15,62, 
42,39, 39,25,64,97.8,60,0,0,15,60,50,15 
40389 DATA162,37,15,96,22,30,233,7,15,69 
+50, 15:71,6,15,135,33,15,31,21,30,97,8 


49390 DATA15,9,9,15,0,9,15,09,09,60,9,0,60 
,19,60,60 

40897 REM FEEEEMAAAAAAAAAAAAAARAA HAHA 

49898 REM * DATA MUSICA 3 CINTERRUPT) * 

40399 REM KEEEEREAAAANANAA AAA AAAAAAAAAA 

40900 DATA223, 39,8,0,0,32,0,0,32,134,35, 
8,181,23,48,107,47,8,223,29,8,0,0 

40919 DATA3,0,9,3,107,47,16,223,29,16,22 
3:39,8,09,0,32.0,0,32,134,35,9,181 


40920 DATA23,48,167,47,8,223,29,3,9,0,8, 
0,9,8,107,47,16,223,29,16,223, 39 

40930 DATAS,0,0,32,09,0,32,134,35,8,181,2 
3,32,107,47,16,223,29,16,239,19,32 

40940 DATRO,9.15,9,09,16,107.47,16,223,29 
116,195, 17,48.6,9,16,9,0,165,193.44,8 
40950 DATA165,31,8,0,0,8,0,0,8,193,44,16 
1165,31,16.223,39,8,09,9,32,0,09,32 

40969 DATA134,35,8,195,17,48,193,44,82,16 
5,31,8,9,09,8,0,0,8,193,44.16 

40970 DATAR165,31,16,223,39,8,0,0,32,0,0, 
32,134, 35,8,195,17,48,193,44,8 


40989 DATA155,31,8,0,0,8,0,0,8,193,44,16 
1165,31,16,223,39,8,0,0,32,0,09,32 

40996 DATA134,35,8,195,17,32,193,44,16,1 
65,31,16,239,19,32,0,0,16,09,0,16 

41000 DATA193, 44,16, 165,31,16,1821,23,43, 
0,0,16,0,0,16,107,47,89,223,29,8 

41915 DATAO9.0,8,0,0,8,107,47,16.223,29,1 


b 

41939 DATAZZ3, 39,8,0,0,32,0,0,32,134,35, 
8,199,59,48,107,47,8,223,29,8 

41949 DATAB,0.,2,0,6,2,107,47,16,223,29,1 
6,223,39,8,0,0,32,0,0,32,134,35,8 

41059 DATR190,59,48,107,47,9,223,29,8,0, 
0,8,9,09,8,197,47,16,223,29,16 

41051 DATA223,39,8,0,08,32,0,09,32,134,35, 


3 

41952 DATA199,59,32,107,47,16,223,29,16, 
12,71:32:9,9,16,0,9,16.197,47,16 

41969 DATA223,29,16,191,79,48,09,09,16,0,0 
16,193,44,8,165,31,8,0,0,8,0,0,8 

41079 DATA193,44,16,165,31,16,223,39,8,0 
,9,32,0,0,32.134,35,3.191,79,48 

41989 DATA193,44,8,165,31,3,0,0,2,0,0,8, 
193,44,16,165,31,16,223,39,8 

412990 DATA9.9,32,0,9,32,134,35,8,191,79, 
48,193,44,8,165,31,8,0,0,8,0,09,8 

41199 DATA193,44,16,165,31,16,223,39,8,0 
9,32:9,9,32,134,35,8,191,79,32 

41110 DATA193,44,16,165,31,16,12,71,32.0 
19,16,9,9,16,193,44,16,165,31,16 

41120 DATA199,59,48,0,9,16,0,0,16,107,47 
,8,223,29,8,9,9,8,09,0,8,107,47,16 

41139 DATA223,29,16,0,0,16,9,0,16,9,9,16 


48997 REM HHHAEEEIAAIAIAAAIOAAAAIAA 

48998 REM # — DATA SPRITE EGIZIANO * 

48999 REM HEART 

49999 DATA2,21,6,0,170,0,0,21,0,9,62,128 
10,253,64, 60 

49019 DATR62,128,12,61,89,12,254,160,12, 
12,9,12,12,0,13,238 

49920 DATA229,13,251,220,0,63,12,9,63,12 
:9,63,12,09,63,12 


499309 DATAO,.63,15,0,63,09,09,63,09,09,63,0,0 
:63,9,0:REM DATI DEL 1 SPRITE 

AED TT Ra rat e RAR 
ti 9, PA 

49050 DATA85,89,0,12,0,0,609,0,9.60,0,0,2 
52,0,9,204 

499609 DATRO,0,294,0,3,204,0,0,204,0,0,25 
2,0,09,60,0 

49070 DATAO,14,0,0,14,0,0,14,0,9,190,0,2 
»179,0,0:REM DATI DEL 2 SPRITE 

49080 DATA2,21,09,9,170,0,0,21,0,09,62,128 
109,253, 64, 240 


49999 DATAG2, 128, 48,61,89,48, 254, 160,48, 
12,9,43,60,0,55, 187 

49100 DATAR112,55,239,124,04,252,12,9,252, 
12,0,252,12,0,252, 12 

49119 DATAG. 252, 15,0,252,0,09,252,09,0,252 
,9,9,252,0,0:REM DATI DEL 3 SPRITE 

49120 DATAG,168,0,09,100,0,0,198,0,1,101, 
0,1,101,9,5 

49139 DATAS5,64,0,240,0,9,240,0,3,240,0, 
3,48,0,15,48 


49146 DATRO, 12,48,0,12,60,0,12,12,0,12,1 
2,0,149,12,0 

49150 DATA190,12,6,170,12,06,9,14,0,0,186 
19,2,168,0,0:REM DATI DEL 4 SPRITE 

49160 DATA8,84,0,2,168,0,0,84,0,0,250,0, 
3,245,9,240 

49170 DATA250,@, 48, 245,64,51,250,128,48, 
48,0,48,60,0,61,238 

49180 DATA220,13,251,220,9,63,12,09,63,12 
:0,63,12,0,63,12 

49199 DATRO,63,15,0,63,0,09,63,0,0,63,0,0 
163,0,0:REM DATI DEL 5 SPRITE 

49299 DATR®,42,09,0,25,09,9,25,09,9,89,64,0 
189,64, 1 

PE CERA dea Ao 
49229 DATAG,0,51,0,0,51,192,09,48,192,0,4 
8,192,9,48,192 

49239 DATRO,48,192,0,48,224,0,51,224,2,2 
50, 169,19,170,9,0:REM DATI DEL € SPRITE 
49997 REM HREKERIAIAAAAAAAAAAAAAAAAAAA 
49998 REM # DATA L.M. CORNICE ROTANTE * 
49999 REM NASRIAAAAAAAIAAAAAAAAAAAAAAAA 
509009 DATA169,255,133,251,133,253, 169,3, 
133,252, 169,215, 133, 254, 173, 39,4. 141 
59919 DATAO, 192, 173,39, 216,141,1,192,160 
139,177,251,170,177,253,290, 145,253 
50920 DATA138,145,251,136,136,203,241,16 
9,9,133,251,133,253, 169,4,133,252, 169 
59039 DATA216,133, 254, 162, 24, 160, 40,177, 
251,72,177,253,169,0,145,253,104,145 
50949 DATA251,24,165,251,105,40,133,251, 
144,2,230,252,24,165,253, 105, 49,133 
50950 DATA2Z53, 144, 2,230, 254, 202, 208, 217, 
169,192, 133, 251,133,253, 169, 7,133, 252 
50969 DATA169,219,133,254,160,1,177,251, 
72,177,253:136,145,253, 104, 145,251,200 
50070 DATAZGO, 192, 40, 208, 239, 169, 191,133 
»251,133,253,169,7,133,252,169,219,133 
50989 DATA254, 162,23, 160,0, 177,251,72,17 
7,253,160,409,145,253, 1094, 145,251,56 
50990 DATA165,251,233,409,133,251,176,2,1 
98, 252,56, 165.253,233,40,133,253,176 


50100 DATA2,198,254,202,208,217,173,0,19 
2,141,79,4,173,1,192,141,79,216,96 


READ". 


ATTENZIONE! 


Per un diverso interfacciamento con la stampante 
il segno ’ (apostrofo) corrisponde agli apici ”. 


Fate attenzione nel digitare il programma. 
10 PRINT ’D’ DIVENTA: 10 PRINT"O” 


(7I8A 


4 


y 


esv U 
=== _____ 


Ni 
ANA 
|Ò 


Ecco di seguito l'elenco di tutti i programmi pubblicati per il concorso: 


ZX-SPECTRUM 


1) LINEE ZERO di Saverio Cantone - ROMA 

2) TOMBOLA di Tommaso Calò - ROMA 

3) IL 13 MINUTO PER MINUTO di Fabio Travi - ROMA 
4) IL LOTTO di Elio Girone - MARANO (NA) 


TI - 994A 


1) LE MINE dî Gianini Martini - COLDIROBI (IM) 

2) VINCI QUATTRO di Davide Inbeni - MODENA 

3) DATA BASE di Luciano Marchetto - NICHELINO (TO) 

4) MISSION VENUS dî Roldano Zappalà - S. GIUSTINO (PG) 
5) SNAKE di Lorenzo Sciucca - ROMA 

6) OLIMPIADI di Filippo Pergola - ROMA 

7) OMEGA LANDER di Fabio Torti - TORTONA (AL) 

8) MR. JUMP di Enrico Combi - MODENA 


SEGA SC-3000 


1) PAROLIAMO di Ettore Fruscoloni - ROMA 
2) ASTRO WAR di Saverio Forestiero - ROMA 
3) PIANOFORTE di Enrico Grandis - BATTAGLIA T. (PD) 
4) TIRO A VOLO di Simone Grandis - BATTAGLIA T. (PD) 
5) UOVA SPAZIALI di Arturo Cucè - MESSINA 
6) BATTAGLIA AEREA di Enzo Masci - ROMA 
7) SPIDER di Franco Albanellìi - CASTELGOMBERTO (VI) 
8) ARCHER di Adamo Antonellini - FUSIGNANO (RA) 
9) REAL GOLF di Mario Frustaci - AREZZO 
10) SUPER MASTER MIND di Fabio Canta - OSTIA (ROMA) 


SHARP MZ-700 


1) ELECTRONIC MASTERMIND di Luca Bonguerrieri - GENOVA 
2) SALISCENDI di Stefania Palombi - ROMA 

3) SLOT MACHINE di Dario Letizia - NAPOLI 

4) BOXE di Massimo Moras - PORDENONE 

5) JAZZI di Marco Marzano - ROMA 

6) IL CASTELLO DI WIZ di Alessandro Arposio - MILANO 

7) CILIEGIE di Mauro Scarsoglio - ALESSANDRIA 

8) BIORITMI di Costantino Costanzi - MONZA (MI) 

9) SCI ALPINO di Alessandro Altemani - CASTEL D'AZZANO (VR) 
10) DISPERSIONI TERMICHE di Giacomo Monnanni - AREZZO 


ORIC 1 


1) BREAK OUT di Marco Belli - ROMA 
2) SALTA LA RANA di Fabrizio Cuminetti - ROMA 


lea seine SS 
CARTOLINA VOTO CONCORSO STRIKE/! AUT. MIN. N. 4/267178 del 25/7/84 


DO TITOLO DEL PROGRAMMA 


DO COMPUTER 


O AUTORE 


MPF ll 


1) CONTRAEREA di Alfredo Broussard - DOSSOBUONO (VR) 
2) MASTERMIND di Massimo Marinelli - ROMA 


CBM 64 


1) SINT CODER di Marco Giusti - PISA 

2) FLIGHT PLAN di Marco Olivotto - ROVERETO (TN) 

3) TS CASA di Dino Mazzini - CASALECCHIO DI RENO 
) 

4) PITAGORA di Antonio Procida - CRECCHIO (CH) 

5) EASY SPRITE di Moretto - MESTRE (VE) 

6) WIMBLEDON '84 di Bruno Brunelli - FOLIGNO (PG) 

7) BILANCIO di Luigi Rusticali - RUSSI (RA) 


VIC 20 


1) IL SERPENTE di Simone Mariani - OSTRA (AN) (©) 
2) CAPITALI EUROPEE di F.P, De Gisi - ATRIPALDA (AV) 
3) FISHERMAN di Luca Nardini - VELLETRI (ROMA) (*) 
4) BIORITMI di Paolo de Maria - VENARIA (TO) 
N) TASTI FUNZIONE di Stefano Ronconi - NOVATE MILANESE 
6) FORMULA 1 di Angelo Ariaudo - MILANO 
7) GHOST di Giulio D'Urso - FIRENZE 
8) CRAZY WORD di Giuseppe Burgio - MILANO 
9) BRUCE di Farinelli/Cervellara - BOLOGNA 
10) SPACCAMATTONI di Roberto D'Acunto - SCAURI (LT) 


ZX - 81 


1) SWIMMING POOL di Francesco Mondelli - OSTIA (ROMA) 

2) 1 POMPIERI di Marco Michieli - ROMA 

3) POETA SINCLAIR di Mario Caracciolo - TORINO 

4) U.S.A. di Raffaello Danti - SESTO FIORENTINO (Fl) 

5) CONDOMINIO di Loris Gerini - FALCONARA MARITTIMA (AN) 


(*) ATTENZIONE: Avvertiamo i lettori che i programmi 
«FISHERMAN» e il «SERPENTE» pubblicati sul n. 2/85 di LIST, in 
quanto ritenuti, in un primo momento, meritevoli di rientrare nella 
rosa delle nove categorie, sono stati successivamente ESCLUSI dal 
concorso essendo risultati in violazione al regolamento dello stesso 
concorso, non originali, in quanto pubblicati con identica stesura, il 
primo sul n. 11/84 della rivista «PAPERSOFT» e il secondo sul n. 
2/84 della rivista «LOAD 'N'RUN». 
Pertanto le cartoline voto relative a tali programmi NON SARANNO 
RITENUTE VALIDE ai fini del sorteggio finale. 
La Giuria del 
Concorso STRIKE 
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Inserire in busta chiusa 


Spett. LIST 


programmi per il tuo home computer 
. Casella: Postale 4092 
| 00182 ROMA APPIO 


ORA VA MEGLIO. 
BISOGNA PROPRIO 

SAPERE COME PRENDERLO 
QUESTO COMPUTER! 


REM 
2 PRIENT 
age Sa SpA 
30 INPUT 
oe pai pe du 
ALTRO" 
SO INPUT 
bi RRFTNSE 


TOP RCENSE 
DOCSPRRINTE 
MO" 


Mori: 4 Poma 8 


IN ALCUNI COMPUTERS SI 
USA [LS (CLEAR THE SCREEN= 
PULISCI IL VIDEO), IN ALTRI 
CALL CLERA, \N ALTRI ANCO- 

RA SI DIGITA : PRMIT "{, SI 
PREMONO INSIEME. SH/FT E 
CLEAR/HOME}” ,NEL LISTATO 
COMPARE: PRIMT"TI”E, 
QUANDO IL PROGRAMMA GIRA, 
SCOMPARE TUTTO DALLO 

SCHERMO. 


IL LISTATO E' LUNGO, NON 

ENTRA TUTTO INTERO NEL 

VIDEO . QUINDI DEVI CHIE- 

DERGLIELO UNA PARTE 
PER VOLTA... 

««. VEDIAMO, PER ESEMPIO, 

LE PRIME OTTO ISTRUZIO- 


FACGTAMO «I CONSFE 


* Gir EerR ea PRINT 
UN NUMERO" 

Xx 

CISM TSO: CEN 


Y 
"CLEAR"3 PRINT 


“E CORAVEHE:CI FACCIAMO 
CON QUESTI NUMERI"? " 


VELE LI SRGIIMI AMOS 
OE ISÈOTRTRA TA 


COSE' QUEL“CLEAR" DOPO 
PRINT, ALLA RIGA 20% 


NEL DIAGRAM 
MA DI FLUS- 
50 GLI ORDI- 
NI START E 
END STAN- 
NO IN RET- 
TANGOLI AR- | 
ROTONDATI.. 


PAOLO, NOI 
USCIAMO. TORNEREMO 
TARDI. MI RACCOMANDO, 
STUDIA LA STORIA. 

ARRIVEDERCI, RAGAZZI! 


GLI ORDINI 
NORMALI IN RETTANGOLI,.. 
NEI ROMBI QUANDO IL COMPUTER 
DEVE SCEGLIERE TRA PIU' 


VA BENE, 


Ad 


PANEARIEC ENI EE os POR -EEIERASI: 
CHIAMO" 
TACERE ENI e 4 DIVIDIA 


ALLARIGA 10 / 
VI HA CHIESTO V 
DI DARE UN VA- 
LORE ALLA VA- 
RIABILE Z,DA 
SCEGLIERE TRA 
12,304. 

SE DATE1 VA 
ALLA RIGA 450, 
SE DATE 2 ALLA 
160, SE 3 ALLA 
470, E SEL AN- 
DATE ALLA 180. 


URA LA SCELTA 
TRA LE 4 POSSIBILITA” 
bi > Goro 150 4660 
ro y189 
REM CALCOLIAMO 
PRINT XX 0 a 
X+Y:GO TO 
PRINT al 


E QUESTA E' LA SECONDA PARTE 
DEL LISTATO. ALLA RIGA 130 CE'7/7 Z LO TO 
CHE ANCORA NON CONOSCETE. 


O AL RETTANGOLONE CI SONO 4 ROM 
BI.CHE RAPPRESENTANO LA SCELTA TRA | VALORI 
DELLA Z. SE VOGLIAMO SOTTRARRE, IL COMPUTER 
COMINCIA CON Z=1, LA RISPOSTA E' NO... 


.« ALLORA VA A DESTRA, 
AL ROMBO Z=2 E LA RI- 
SPOSTA E 0°. 


LU FARTI 
LE PREDI 
CHE! 
ANCHE TU COME LA SCHERZI? 
MAMMA A FARMI SL ESE 
LE PREDICHE? 


COOSA PERDI TGLUERE E 


BEH, DEVO AMMETTERE CHE LA SISCE SAFERE COME ERA 
TANTI SECOLIFA? 


STORIA PROPRIO NON MI PIACE ... MONDO 
CHE CI POSSO FARE ? LA \(S-fTORLrLA E CCOGL CAMMENT U- 
RA DELL'UOMO , 


PIU” AVVIN- 
CENTE DI 
QUALSIASI 
“GIALLO” 
CONS cale È Si 
INTERESSANTE 


DI UN ROMANZO! MA FOR- 
SE IL #40. PROFESSORE 
NON SA RENDERTELA PIA- 

CEVOLE, VOGLIO RACCON- 
TARTI IO QUALCOSA... +» 


